DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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MODULE pel ing (IDENT='V04-000' 


1 
SING_MODE (NONEXTERNAL=LONG_RELATIVE, 
EXTERNAL=GENERALS) = 


BEGIN 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH THE T OF SUCH LICENSE AND WITH THE 
SION T NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vamusrehecee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT I On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1e¢ 
FACILITY: Command Language interface routines 
ABSTRACT: 


These routines are used to enable a newly activated 
image to obtain the command parameters and qualifiers 
from the command language interpreter. 


ENVIRONMENT : 


VAX/VMS operating system. unprivileged user mode, 


AUTHOR: Tim Halvorsen, Mar 1980 
Modified by: 


v03-015 HwWS0073 Harold Schultz 12-Jun-1984 
When error encountered, always return an error code 
rather than a 0. When a syntax error is signaled, output 
posendery error message o gotity not found (ENTNF). 
ut igng h check back into FIND_ENTITY optimization (undo 


v03-014 HwWS0070 Harold Schultz 29-May-1984 
Don't check for length in FIND_ENTITY optimization. 
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v03-013 HwS0028 arold Schultz 12-Mar-1984 
Optimize FIND _ENtTiTy and UPCASE. 
v 7-012 PCG0022 Peter George 09-Feb-1984 
Fix bug in default keyword processing. 
v03-011 econo’ Peter George 27-Jul-1983 
Look past first instance o tenon 
v03-010 PCG0020 Peter George esl 
Use event riage more intelligentl ys 
Use multi-national upcase algorit m. 
v03-009 PCG0019 Peter George 20-Apr-1983 
Add explicit check for dispatch reut ine address of zero. 
v03-008 PCG0018 Peter George 17-Feb-1983 


Convert to new table structure 
Use PTR_B_NUMBER to get qualifier or keyword number. 


v03-007 PCG0017 Peter George 27-Dec-1982 
Be smarter about using old get value contexts. 


v03-006 er ecnte Peter George 13-Dec-1982 
Fix bug in multiple nested value fetch. 
Clean up some more code. 
Return CLIS_ABSENT Taetecd of false when no value is found. 


v03-005 presets Peter George 11-Nov-1982 
Be smarter about when to return CLIS_COMMA for 
parameter values. Do not return a default value 
if ® OaKET we or keyword has been explicitly 
negate 


v03-004 PCG0014 Peter George 14-0ct-1982 
Return CLIS_COMMA for default values. 
Add DCLSNEXTQUAL. 


v03-003 PCG0013 Peter George 01-Sep-1982 
Support keyword parsing. 

v03-002 PCG0012 Peter George 03-Aug-1982 
Redo the previous fix in a different manner. 

v03-001 PCG0011 Peter feorge 14-Jun-1982 
Differentiate between local and global presence 
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1 ; 
1 Table of contents 
LINKAGE ! Common Linkage 
entity_linkage = call : GLOBAL(block=9,number=10,type=11); 
—— POUT INE ! Callback entry point 
sys$cli; 


FORWARD ROUTINE 
initialize : NOVALUE, 


Ww 


Di in Pn in, i in i i i, In Di i I i Si 
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dcl$present, 


Initialize own storage 
Determine if entity present 


parameter_present : entity_linkage, Determine if parameter is present 

meen rer present : entity_lLinkage, Determine if qualifier is present 
cl$getvaTue Get value of entity 
parameter_value, Get next parameter value | 
qualifier_value, Get next qualifier value 


reserved_value, 

verify_entities : entity_linkage, 
find_main_entity : entity_linkage, 
veri Yenerwores. 

find_ Byyerd one ot? : entity_Llinkage, 
find_entity : entity_linkage, 
guess_entity : entity_linkage, 


Get a reserved pao | value 
Verify all the specified entities 


Find qual, param, or reserved entity in da 


yoruty legal keyword path 

Find keyword in database 

Find generic entity in database 

Searc os at ty for keyword 
° 


guess _keyword_ent ity, Search vertically r keyword 
process_keyword list, Process the specified keyword List 
get_param_token, Find next parameter value on Line 


get_next_value, 
get_explicit_value, 


Get next value 
Get next explicit value in the List 


get_specified_value, Get specified value 

get default_value, Get default vluae 
nsert_next_level, Get next level of default values 
insert_string, Put string in default value 


insert_char 
allocate_default_buffer, 
local_qualifier, 


Put character in default value 
Allocate space for default value 
Find local occurrence of qualifier 


global qualifier, Find global occurrence of qualifier 
oken_string : NOVALUE, Copy token string to descriptor 
upcase : NOVALUE, Upcase a strin 

batch_job True if batch Job or not 


Convert the keyword List to an array 


} 
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convert_keyword_Llist, 
dcl$dispatch, 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Dispatch to user progessing routine 
e 
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SEC 
PSECT CODE 
‘ 


: Get values of status messages. 


EXTERNAL LITERAL 
cli$_comma, ! Value is terminated with a comma 


at ka a i ak ak a ak a i ka ak at at at a = 2 ss Ss 2 Ss = = 2 2s SS Ss 2 2s Ss ss Ls ss SS SS SY Ls Ys SY 
a ak aa an a a a a ak a tt a a a a a = a a a as a 1 = as = 1s on — ss a — 4 1 a 
tk kt tk a a at a a a a as a a a a as bs a ss ss as ss ts 2 ts tt 
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60 dcl$nextqual, Find the next qua r 
61 Get gendper se. Cleanup allocated VM and CTLSAG addresses 
66 dcl$getline; Get command Line 
64 ! 
34 Change name of the PSECT's to conform to DCL standards. 
7 PSECT PLIT = DCLSZCODE(EXECUTE, ALIGN( »); ' PLIT psect 
; = DCLSZCODE(EXECUTE, ALIGN(O)); ! Code psect 
0 
2 
4 
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175 777 cli$_concat, ! Value is terminated with a plus 

178 ore cli$_present, ! Entity is explicitty present 

17 77 cli$_negated, : Entity is qupt tctety not present 

178 7 » cli$_locpres, ! Qualifier is cecesy preccns 

17 7 cli$_locneg, ! Qualifier is explicitly not locally presen 

180 7 ¢ cli$_defaulted, ! Entity is implicitly present | 

13) 7 cli$_absent, : pntity is implicitly not present 

1 ¢ 784 cli$_invrout, ! Invalid routine 

18 785 cli$_entnf ! Entity not found 

184 , exe$c_sysefn; i System event flag number 

1 P 17 $shr_messages(msg,3, ! Prefix MSG$_ with ili 

189 7 syntax. pevere)): t sr Pirsertes 

188 790 

189 791 LITERAL 

Hb a4 msg$_noentity = msg$_syntax; ! Provide temporary definition 

19 794 ' 

138 oe? Define entity type numbers (for internal classification of entities) 

195 739 LITERAL 

196 798 ab nage = 1, ! Minimum entity type number 

197 799 param_entity = 1, ! Entity is a parameter 

198 800 qual_entity = 2, ! Entity is a qualifier 

199 801 reserved_entity = 3, ! Entity is a reserved word 

$00 Hi max_entity = 3; ! Maximum entity type number 

20 8 : 

08 ! Macros to get the address of a token descriptor given a token index, 

oe 8 } and to get a token index given the address of a token descriptor. 
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MACRO token _desc(index) = 

wrk Cwrk g_result] + (index-1)*ptr_c_lengthi; 
MACRO table_Tndex(token) = 

(token = wrk Cwrk_g_result])/ptr_c_length + 1%; 


! Index => Token 


SIS 


' Token => Index 


3 


1 
: Macro to zero the unused portions of the context arrays. 


MACRO zero_context_arrays (index) = 


CHSFILL (0, 4*(dcl_c_context-(index)), entity_context Cindex)); 
geet itl (0, 4*(dcl_c_context=(index)), token_Context Cindex]); 
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1 
! Cells containing addresses of CLINT own storage and command work area. 

! If these addresses were not defined by DCLSDCL_PARSE, then we are parsing 
a@ supervisor mode command and they are initialized here. 

E 


Mororonen 


XTERNAL 
ctl$gl_clintown : REF BBLOCK, ! Address of pointer to own storage 
ctl$gl_dclprsown : REF BBLOCK; ! Address of pointer to wrk area 


' 
: Table of reserved entity names 
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PLIT BYTE( 
P ' Returns entire command Line 
i gh name (as det ined) 
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yoseO00 12-808-1 38s 99:98:38 DLSKSVMGMASTERSCDCL SRCIRPCLINT.B32;1 (4). 
3 2 } “0 } ROUTINE initialize (get_vm, free_vm) : NOVALUE = 
; 241 1 § 1 !<<2 
; 24 1845 1! 
; 24 1844 1! This routine is called on the first call to this 
> 246 1845 1! interface package. It initializes the own storage 
3 $7 L rs : and sets up for result parsing. 
: 24 1848 1 ! Inputs: 
>; 248 1849 1! 
; 249 1850 1! et_vm = Address of LIBSGET VM routine 
3 29 : 2) : } reeé_vm = Address of L'SSikec_VM routine | 
3 26 1858 1 ! Outputs: 
3; 1854 1! | 
; 254 1855 1! OWN storage initialized. 
> 255 1856 1 !--- 
: 28 1857 1 
 e 1858 BEGIN 
: ¢ 1859 
3 $20 1860 BUILTIN 
: 260 1861 PROBEW, ' True if location writable | 
; 261 1866 PROBER; ! True if location readable 
; o¢ 186 
3; <€ 1864 LOCAL 
> 264 1865 index, ! Token index | 
; 265 1866 lm : REF BBLOCK ! Address of parameter Limit block 
; 266 1867 req.desc : BBLOCK Celis, reqdesc], ' Callback request descriptor 
: 267 1868 req_flags : BITVECTOR C32], ' Callback request flags 
; 268 1869 pw: BBLOCK (Ccli$c_workareal, ! Result parse work area 
: 269 1870 token REF BBLOCK, ! Address of token descriptor 
: 270 1871 wrk : REF BBLOCK, ! Address of WRK block 
3; 271 1376 status; 
3 Le; 187 
By an 1874 
; 274 + 154 } | 
s 275 1876 ! Get memory for parse routines’ own storage. Store address of own storage 
: + 144 in CTLSGL_CLINTOWN. If LIBSGET_VM is unsuccessful, then abort. 
; 1879 IF NOT (status = (.get_vm) (ZREF(dcl_c_size), ctl$gl_clintown)) ! Get memory for CLINT own storage 
3 1930 THEN SIGNAL (.status); ! Signal error if failed | 
3 188 | 
3 1 53 ! If the WRK block pointer is zero, then make an old fashioned INITPRS 
: ; Re ; callback to get it. 
3 18 IF set Sal dclprsown EQL 0 ! If we have no WRK block pointer | 
3 1 THEN BEGIN ' Then get one now 
F} 1888 CHSF ILL (0-61 1Sc readesc .req desc); ' Zero request desc block 
3 1889 req desc (cli$b_r typed = cli$k_initprs; : set request type 
; 1890 4 IF ROT (status = SYSSCLI (req_désc, rpw, req_flags)) ! Init_result parsing solely to get 
3 1891 THEN SIGNAL (.status); ' rpw Crpw_l_delwrk 
; 1996 ctl$gl_dclprsown = .rpw Crpw_t_delwrk); ' Store addréss of WRK area 
3 189 END; 
7 1S 
; : 
; 1896 ! Get the address of the command WRK block from CTLSGL_DCLPRSOWN. 
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97 ! 
3 i wrk = .ctl$gl_dclprsown; ! Get address of WRK area 
99 0 : 
00 9 ! Verify the vet téity of the CLI WRK area pointer, to ensure that we aren't 
4 g : trying to deal with a mismatched WRK structure. 
08 38 ctl$gl_clintown Cdcl_v_nowrkarea] = true; ! Assume invalid WRK area 
05 90 ! 
$8 90 Check first result parse descriptor. 
08 30 token = wrk Cwrk_g result]; Point to first entry in array 


If not readable, 
Or invalid type code, 
Or invalid terminator code, 


! Or invalid RSL pointer, 
+ wrk_c_rslbufsiz 
! Return with invalid WRK 


T PROBER (REF Tpsi Sc. ser) ,ZREF (ptr_c_length),.token) 
OR .token Cptr_-v_type] GTRU _k ignore 

OR .token [ptr -v_term] GTRU ptr_k_lparen 

OR .token [ptr_v_term] LSSU ptr_k_blank 

OR .wek Cwrk_l_orsinxt] LSSA wrk burk.g_result) 
OR .wrk Cwrk_lorsinxt] GTRA wrk lt 
THEN RETURN; 


' 

: Check first parameter entity block and first qualifier entity block. 

token = .wek Cwrk_l_proptrd; ! Get address of param entities 
IF .token NEQ 0 ! If invalid pointer, 


THEN IF NOT PROBER(ZREF (psl$c_user) ,ZREF(10),. token) 
THEN RETURN; ! Return with invalid WRK 


token = .wrk Cwrk_l_quablk]; ! Get address of qual entities 
IF .token NEQ 0 ! If invalid pointer, 
:HEN IF NOT PROBER(ZREF (psl$c_user) ,ZREF(10),. token) 
THEN RETURN; ! Return with invalid WRK 


] 
: If we've gotten this far, then indicate that the WRK area is valid. 


ctl$gl_clintown Cdcl_v_nowrkarea] = false; ! Indicate valid WRK area 


i] 
; Initialize the CLINT own storage area. 
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; Clear all information about the default value buffer. 
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940 . 
941 ctl$gl_clintown Cdcl_w_buflen] = 0; ! Clear length of buffer 
366 CHSFILE (0, dsc$c_s_Blan, ctl$gl_clintown Cdcl_w_deflen)); ! Zero default value descriptor 
944 : 
: oe? : Save the addresses of the LIBSGET_VM and LIBSFREE_VM routines. 
$ 349 ctl$gl_clintown dct_tgetvm] = .get_vm; ' Store LIBSGET VM 
4 ase ctl$gi_clintown Cdcl_l_freevm] = .free_vm; ! Store LIBSFREE_VM 
950 } 
? 333 : Clear all context information. 
2 338 ctl$gl_clintown Cdcl_v_nextqual) = false; ! Assume normal qualifier parse 
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3 3 1954 CUBE TLL » 4tdcl.c context, ctl$gl_clintown gcl.t entity): ! Set no entities processed yet 

3 4 1955 CHSFILL(O, 4*dcl_c context, cg lsat gh intoun dcl_l_tokenJ); ! Set no tokens processed ye 

; 5 19 § CHSFILL(O, 16*plm_C size, ctl$gl_clintown Cdcl_l-prmlim)); ! Zero parameter Limit descs (plms) 
5 $ 19 ctl$gl_clintown pact _b_paran 0; ! Set no parameters processed yet 

3 . 1328 ctl$gl-clintown Cdcl-l=qualj = 0; ! Set no qualifier processed yet 

; 359 1960 2! 

3 ° 1303 : Initialize the parameter List markers in the clint own storage. 

: é 1968 i For each parameter type. a plm longword is filled in. Each byte 

3 1388 contains the index of a result parse descriptor, as follows. 

; 365 1966 i plm_b_nxtdesc = next parameter value to examine 

3 r$] 196 : plm_b_fstdesc = first parameter in the List 

3; 1968 ; plm_b_lstdesc = Last parameter value before next parameter type 

3 re 139) : plm_b_quadesc = first possible local qualifier token 

: 370 1971 index = 0; ! Start at first token descriptor 

; a! 19% plm = ctl$gl_clintown Cdcl_l_prmlim); ! Point to first plm longword 

; t? ore status = get_param_token(index,token); ! Get first parameter token 

; 375 4a WHILE (.status) ! Until no more parameters 

; 76 197 DC BEGIN : 

3 ive 1678 plm Cplm_b_fstdesc) = .index; ! Save starting token for parameter 
; 378 1979 plm Cplm_b_nxtdesc] = index; ! and set next value to process 

; 4 13ee ; plm [plm_b_quadesc] = .index; ! and set first possible qualifier token 
; 381 1956 4 WHILE (status = get_param_token( index, token) ) ! Scan for next parameter value 

3 S¢ 1983 4 DO BEGIN ' 

; 38 1984 4 BIND preceeding token = .token -_ptr_c_length: BBLOCK; : 

: «384 1985 4 IF spreceeding token Cptr_v_term) EQC ptr_k_blank ' If start of next parameter 

3; 4385 1986 4 THEN EXITLOOP; ! then stop for a second 

3 56 bt END; : 

; 388 1989 plm Cplm_b_lstdesc) = .index-1; ' Save ending token for prev. parameter 
3; 389 1990 im = .pim'+ plm_c_size; ! Skip to next plm 

: 390 1991 END; 

; «#391 bo 

3 4 199 RETURN true; 

; 39 1994 END; 


TITLE RPCLINT 
- IDENT WVO6=000\ 


«PSECT DCLSZCODE .NOWRT 0 


45 4 49 4C 34 05 0000 P.AAA: .ASCII <5>\$LINE\ F 
42 52 45 56 24 05 00006 eASCII <5>\$VERB\ 3 
00 0000¢ "BYTE 0 F 
RESERVED_WORDS= P.AAA 

TEXTRN SYSSCLI, CLIS_COMMA 

EXTRN CLIS_CONCAT, CLI$ PRESENT 

-EXTRN CLISTNEGATED, cL18 LOCPRES 

-EXTRN CLISTLOCNEG, CLI$_DBEFAULTED 
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-EXTRN CLIS_ABSENT, CLIS_ INVROUT | ; 

-EXTRN CLIS-ENTNF, EXESC-SYSEFN ; 

EXTRN CTLSGL_CLINTOWN ; 

-EXTRN CTLSGL-DCLPRSOWN | 

society niga | Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 1840 

® ave g | é 

e) 90000000y FF 9E 9002 MOVAB GET_PARAM fo KEN, Rif : | F 

A 000000006 0 9E 000 VAB riBSS1GNAC : 1; 

9 000000006 00 9€ 0019 MOVAB CTLSGL eet basco, RO : | F 

E FF54 ce 9—€ 0001 OVAB = g(SP), § SP : | ; 

000000006 6 OF 001 USHAB CTL GL_CLINTOWN > 1879) ; 

04 AE 9 F 9A MOVZBL #144, &(SP) : | ; 

04 AE 9F 000 PUSHAB 4(SP5 : : 

04 BC 9 FB O002A CALLS me. @GET_VvM : | ; 

8 DO 0002E OVL RO, STATOS ; ; 

05 2 E8 00031 LBS STATUS, 1$ ; | ; 

DD 00034 PUSHL STATUS > 1880. : 

6A 01 FB 0036 CALLS #1, tips SIGNA ; ; 

69 D5 00039 18: TSTL TLSGL  DCLPRSOWN : 1886 | : 

29 12 00058 BNEQ : ; 

iC 00 6E fe 00 2¢ 9030 MOVCS #0, (SP), #0, #28, REQ_DESC > 1888 | : 

E4 AD 9% ies CLRB  —s REQ_DESC : 1889 | F 

04 AE 9F 00047 PUSHAB REQ- “FLAGS > 1890 | ; 

14 AE 99F Q004A PUSHAB : : 

E4 AD 9F 00040 PUSHAB neo, : : 

000000006 00 03 FB 00050 CALLS #3, SYS$CLI : ; 

SB 50 D0 00057 MOVL RO, STATY : ; 

05 58 €8 0005A LBS = STATUS, 3 : : 

58 DD 0005D PUSHL STATUS : 1891) ; 

6A 01 FB 0005F CALLS #1, PIBSSIGN : ; 

69 146 AE DO 00062 a8: MOVL RPW+4, tTLSct DCLPRSOWN : 1892 | ; 

50 69 DO 00066 3$: MOVL  § CTLS$GL_DCLPRSOWN, WRK : 1858 | : 

56 000000006 00 D0 00069 MOVL CTLSGL Or oN NTOWN, R6 + 1904 | ; 

57 008C ¢& 9E 00070 OVAB 140(R6), R7 : ; 

67 01 88 90073 BISB2 #1, (R : | : 

51 F9B6 «CO 9E 00078 MOVAB -1610(RO), R1 + 1909 : 

08 AE 51 00 0007D MOVL 1, TOK : : 

08 BE oC 03 o¢ 90081 PROBER #3. #12, @TOKEN : 1910 : 

45 13 000 BEQL ; : 

05 08 BE 04 1C FD 0088 CMP2V #28, #4, @TOKEN, #5 > 1911 : 

20 A 08 BGTRU q F 

07 08 BE 04 1 FD 0 CMP7V #24, #4, @TOKEN, #7 > 1912 | : 

18 1A 00096 BGTRU ; : 

00 08 BE 04 1 FD 0098 CMPZV #24, #4, @TOKEN, #0 : 1913, : 

01 1A O09 BGTRU 4 ; : 

04 000A RET F : 

51 BA AO 01 O00A1 4$: CMPL =-70(WRK), R1 > 1914) : 

01 1€ OOK BGEGU 5$ : : 

g4 OA RET : : 

51 B6 a0 f AB S$: MOVAB =74(RO) > 1915. : 

51 BA AO D1 OOOAC CMPL = 70(WRKS, PRI : | : 

01 18 00080 6s BLEQU 7$ ; : 

04 Yoo? RET 3 $ 

08 AE (6 A 9 60053 7$: MOVL «= =58(WRK), TOKEN : 1921 ’ 

07 13 0008 BEQL 8$ + 1922 : 


13 | 
RPCLINT 1§- Sep-19 26: VAX-11 Bliss-32 V4.0-7 11 R 
yoseo00 14- =300n 138% 99:79:38 DISKSVMSMASTER:CDCL. she RPCLINT.B32; (a9 © a) V 
08 BE OA 03 0 OOBA PROBER #3, #10, @TOKEN : 1923) : 
¢ bF BEQL : ; 
08 AE CA A p cl 8$ ROVE =54(WRK), TOKEN : 19 $ ; 
08 BE OA 88 of 568 PROBER #3, #10, @TOKEN : 1928 : 
07 OCD 9$: NEG 108 : ; 
94 OCF RET : | : 
67 01 8A 00000 10$:  BicB2 #1 (R7) + 1934 | ; 
008D 6 B4 00 CLRW © 144(R + 1941 ; 
08 00 6E head 00 C 9007 MOVCS i, tS), #0, #8, 132(R6) > 1942 ; 
7c OA 04 AC 7D OODF MOVO.  GET_VM, 124(R6) > 1947! ; 
6 0 BA £4 BICB2 #2, + 1953) ; 
1c 00 6E - 00 C OOE7 MOVCS #0, (SP), #0, #28, 64(R6) ; 1954 ; 
1c 00 6E ~* 00 2c OO0EE MOVCS #0, (SP), #0, #28, 92(R6) ; 1955) ; 
0040 8F 00 6E Oy 2c O00FS movcS #0, (SP), #0, #64, (R6) * 1956 | : 
oosr C6 94 OOF CLRB = 143(R6) : 1957) 
78 A6 D4 00101 CLRL  120(R6) : 1958 | ; 
OC AE 04 00104 CLRL —sINDEX > 1971) ; 
52 56 DO 00107 MOVL 6, PLM : 1972. 
08 AE 9F OO10A PUSHAB TOKEN : 1976 | 
10 AE 9F 0010D PUSHAB ; 
68 08 FB 00119 CALLS re GET PARAM_TOKEN : | 
38 50 DO 0011 MOVL RO, STATUS : 
& OC AE DO 00116 MOVL INSEX. R ; 1978. 
35 58 €9 OO11A 11$ BLBC STATUS + 1976. 
01 A2 53 90 0011D MOVB = R3,_ 1 (PLM) : 1978 
62 53 90 00121 MOVB = R'3,,_ (PLM) : 1979 
03 A2 53 90 00124 MOVB = R3,_ 3(PLM) + 1980 | 
08 AE 9F 00128 12$:  PUSHAB TOREN : 1982 | 
10 AE 9F 00128 PUSHAB INDEX : | 
68 02 FB 001 E CALLS #2, G GET PARAM_TOKEN ; 
5B 50 D0 00131 MOVL ATU ; | 
0D 58 £9 00134 BLBC eT ATUS 13$ ; | 
50 08 AE 0c ¢3 00137 SUBL3 #12, OREN RO : 1984 | 
01 03 AO 04 00 €D 001 s CMPZvV #0 (RO), : 1985 
E4 12 0014 BNEQ F 
53 OC AE 00 00144 13$:  MOVL INDEX ; 1989 | 
02 A2 53 01 83 00148 SUBB3 RS RS CPL) : | 
52 04 CO 00140 ADDL2 Ag > 1990 | 
8 11 00150 BRB 1 4” : 1976) 
04 00152 148: —- RET > 1994, 
; Routine Size: 339 bytes, Routine Base: DCL$ZCODE + 000D 
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95 83? GLOBAL ROUTINE dcl$present (raqdesc, rqwork, rqbits) = 

3 399 leon 

98 44: ! 
ive +45 Determine if an entity is present on the command Line. 
401 001 Inputs: 
40 002 ‘ 
40 00 rqadesc = Address of request descriptor data structure 
tbe oe rqword, rqbits = ignored 


Outputs: 
Routine value: 


Sa35 
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‘ 
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. 
' 
. 
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. 
' 
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0 

1 1 success = ct 1s present 

1 1 cli$_locpres 

: ; cli$_defaulted 

1 1 failure = cli$_absent 

1 1 cli$_negated 

: : cli$_locneg 

; ; ALL errors are signalled. 

2 

2 : BEGIN 

2 

2 Pp 

§ 3 rqadesc : REF BBLOCK; 

2 2 GLOBAL REGISTER 

2 block=9: REF BBLOCK, ! Address of entity descriptor block 

2 number=10, ! Parameter/qualifier number 
type=11; ! Entity type 


CAL 
keyword array : VECTOR C2*(dcl_c_context+1)+1); Keyword array 
' 


Initialize CLINT if necessary. 


PIPPI NIP DINIPI PPP PIPINININININIPIPINPINIPOPUNIPINPOPININUNIPNNY 2 2 SS 


i ee ee nw i www w lw lolololololalolololololololololololo! 


FWAWAN AWWA IP POP 


FP ot at ot ot ot ot al et ot ot pt he ee ae ee ek et et kt et et kt tt et et et 
PWN 9 ODO UE WIN (OOO NAUES WN "QO OONOULS WO 


a WWII 
SO SESE FESS SS Nouns cre OO ve wr uve Oosm oe 


3 IF .ctl$gl_clintown EQL 0 ! If not yet initialized, 
3 THEN initialize (.rqdesc Lint t_getva). ! then initialize parsing 
:? -radesc Cint_l_freevm)); ! 
44 04 : 
rr 204 : Verify that valid entities were specified. 
444 P 04 return_if_error (verify_entities (radesc Cint_w_entlen], ! Verify all specified entities 
445 045 keyword_array)); ! 
446 pag 
447 04 : , 
448 bee ! If the entity is reserved then it is alwyas present. If it is 
rc 080 : a@ parameter or qualifier, then check it out. 
451 051 CASE .type FROM min_entity TO max_entity ! Process each entity type differently 


cn 


wean 


3; Routine Size: 


¢ OF 
i : 


aan aan 
param_ent 
Tee sentity] 


5E BC 
000000006 
50 04 
7E 10 
FE92 ~—sCCF 
7E 04 AC 
00000000v 34 
02 01 
0006 0019 


84 bytes, 


50 000000006 


08 
00000000V_ EF 


08 
00000000v_ EF 


Routine Base: 


1§-$ep-1984 
10-Sep-1984 


ty) RETURN cli$_present; 
RETURN parameter_ present (keyword_arr 
“RETURN qualifier_bresent (keyword arra 


DCLSZCODE + 0160 


00 6008 

4 000 

D5 00006 

is Bp Re 

p ones 

D 0001 

FB 00016 

DD 00018 1$: 

C1 0001D 

FB BOSS 

E9 000 

CF Bones 
00030 2$: 

DO 00036 3$: 

04 00030 

9F OOOSE 4$: 

FB 00041 

04 $4 98 

9F 00049 5$: 

FB pages 

04 00053 6$ 


93:98:89 HecddwGAASteRccoce secSeeceint.032:4 


BR 


! Process reserved entity 
;! Process parameter entit 
‘Sibbesceenas buat fier entit 


DCLSPRESENT. Save R9,R10,R11 
CTLSGL aor 
DES 
(RO). =(SP) 
2. Bats) 
, RQDESC, =-(SP) 
: , VERIEY “ENTITIES 
US AS 

$58, 
5$-2$.- 
3$-2$ 
WCLIS_PRESENT, RO 


rs hg ARRAY+8 
» PARAMETER_PRESENT 


KEYWORD ARRAY+8 
, QUACIF IER_PRESENT 


o+oY2 
<lNas NCoe@e 


Page 13 


(5). 


an 


FSESSSOSER 


SOOOOCOCOOCOCOCOCCoCoOoCoCOoOoOSoO 
WOOO OOO NI NIN NIN NN NNO OO 
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MIPOPOPOPONONY 
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a tt I OOOOD 
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: entity_linkage = 


ROUTINE parameter_present (keyword_List) 
' Saale 
i 


; Determine if a parameter value is present. 


keyword list = Address of List of keyword descriptors 
block = Address of parameter entity descriptor block 


' 

' 

' 

' 

: number = Parameter number 
type = Always paramter 
' 

' 

' 

' 

' 


i Outputs: 
i routine value = status indicating presence 


MAP 
keyword _list : REF VECTOR; 


EXTERNAL REGISTER 
block=9: REF BBLOCK, 

number=10, 

type=11; 


BIND 
wrk = ert dclprsown : REF BBLOCK 


prmlim = ctl$gl_clintown Cdcl_l_prmlim] : VECTOR; 


CAL 
default, 
plm : REF BBLOCK; 

' 

: Set parameter state variables 


plm = prmlim C.number-1); 
ctl$gl_clintown Cdcl_b_param] = .number; 


the parameter is not explicitly present 


F spin Cplm_b Fopdese? EQL 0 
THEN IF (TbTock Cent_w defval] EQL 0) AND 
NOT .block Cent_v_deftrue 
THEN RETURN cli$_absent 
ELSE default = true 
ELSE default = false; 


Vv 
D 


If then check to see if i 
has a default value or is present by default. If not, return CL 


AXe- 
I 


X-11 Bliss-32 v4 
SKSVMSMASTER 


Address of descriptor block 
Parameter number 
Entity type (param_entity) 


Address of command wrk area 
Parameter context array 


Defaut values flag 
Address of parameter Limit 


Find Limits of this parameter 
requested 
(for local qualifier search) 


Save last parameter 


t 
1$_ABSENT. 


If parameter is missing 
And has no default value 


And it is not present by default 
sent 


Then indicate not pre 


' Else set default f a9 . 
a 


Else clear default f 
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$ep-1984 VAX-11 Bliss-32 V4.0-7 age 15 
ry 99: #8: Hy DISKSVMSMASTER:CDCL. Ske RPCLINT.B32; 4 (6) 
E ! The parameter is other present of defaulted. Now it's time to che 
2 
2 
1 


ck 
i for eywords. If a keyword list is specified, then call process_ keyword. list 
to check for their presence. 


i zkeyword List CO] NEQ 0 ! If we have a keyword List 


COCAL 8 to qual, token; 
qual Assume first token will be defaulted 
token = token desc (.plm Cplm_b fstdesc]); 


Get first parameter token 
found = process_ keyword, List T.Block, keyword. “ys SL 


' 
i 
i Process the keyword list. 
oken, ~\defeult, param_entity, 0, qual) 
IF sQyal 6 If value was not defaulted 
EN 14 point _qQuadesc) = table_index (.qual) + 1 


Then update local qualifier context 
celeb “quadesc) = .plm Cplm_b_lstdesc] + 1; 


Else allow no more local qualifiers 


If we've gotten this far, then no a are present and the specified 
parameter is either present or defau 


—-— 


ted. Return the appropriate value. 


ts os 2 2 2 SS SS SS = 2 2 a Ss 2 SS 2 ss 8 ts SY 


SBE FAWN AIRPPOPOPPEPENONYNY 2 SS 


PWN OOONOA UE WN (“OOF NOUE WN OOONO 


PRIPIPIPIPININIPYINININIPININUNIPUNPOPINIPINUPOPUNoPNPononny 


if .default ! If the parameter was defaulted 
hg 3 RETURN cli$_defaulted ! Then so indicate | 
Lm ; lm_b_ quadesc] = .plm Cplm_b_fstdesc] + 1; ! Update qualifier pointer 

AN cliS_present; ' Return present 
END; 
001C 00000 PARAMETER PRESENT: | 
-@ORD Save R2,R3,R4 : 2059) 
54 00000000G 00 9€ 00002 MOV WRK, R4 
2f 4 C2 00009 SUBL #4, SP | 
50 000000006 00 0D 0 MOVL CTL$GL_CLINTOWN, RO 2091 | 
52 FC AOGA oF 1 MOVAL ml te PLM 2100 | 
008F CO 5A 1 MOVB NUMBER, 143(ROS 2101 | 
01 ¢ 1 TSTB 1(PLM) 2108 
BNEQ $ 
1¢ 9 isty 8 (BLOCK) 2109 
08 04 BBS #2, 4(BLOCK), 1$ 


Ag 
50 000000006 #CLIS_ABSENT, RO 


Pe Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Be Be 
mr 


SOOooooooooooooosecoooo 


SOOOOOoooooooooooooeso 
DWYVMIOM BD ONLWO NUNS OW 
= 
o 
< 
r 


‘$33 
A 
DF 
2€ 110 
F p 111 
4 RET 
53 1 b0 1$: MOVL #1, DEFAULT 112 | 
: 1 BRB & 109 
D4 gs: CLRL DEFAULT 13 
04 BC D3 $: TSTL  @KEYWORD_LIST 120 | 
4 BEQL «6=s«SS$ 
et D4 0004 CLRL UAL 3133 
0 6 0 4 MOVL K, RO 124 
1 01 A2 9A 0004 mOVZBL 1(PLM), R1 
1 OC C4 0004 LL , RI 


we 


51 
03 A2 
03 A2 
03 A2 


; Routine Size: 155 bytes, 


50 FOAA C140 oF 
n  oAR 
9 6B 
04 86 4+ 
00000000v_ EF 37 F 
$F D 
i: 
| 064A it i 0 
} te 
4 00 
02 A2 01 81 00 
4 00 
08 53 E9 00 
50 000000006 8F 4 09 
01 ag 2 a1 0 
50 000000006 8F 00 00 
04 00 


Routine Base: DCLSZCODE + 0184 


* PROCESS_KEYWORD_LIST 
QUAL 


WRK, QUAL, R1 
1610(R1), R1 


#2, R1, 3¢PLM) 
#1, 2¢(PLM), 3(PLMD 


DEFAULT, 6$ 
#CLIS_DEFAULTED, RO 


#1, 1(PLM), 3(PLMD 
#CLIS_PRESENT, RO 


VAK-11 Bliss<32 V4.0-7 
DISKSVMSMASTER:CDCL.SR 
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13 
bade -1984 00:26: VAX=11 Bliss-32 V4.0-74 
14-Sep-19 4 99:48:38 DISKSVMSMASTERSCDCL SRCIRPCLINT .B32; 
ROUTINE qualifier_present (keyword_list) : entity linkage = 


' 
Determine if a qualfier value is present. 


i 
i 
; Inputs: 

keyword_list = Address of List of keyword descriptors 
i block = Address of qualifier entity descriptor block 
; number = Qualifier number 

} type = Always ‘‘qual_entity”’ 

! Outputs: 

routine value = status indicating presence 

i 


BEGIN 


P 

keyword_list : REF VECTOR; 

EXTERNAL aaeeores 
block=9: 


REF BBLOCK, ! Address of descriptor block 
number=10, ! Parameter number 
type=11; ! Entity type (param_entity) 
L 
default, ! Defaut values flag 
aanen : REF BBLOCK, ! Address of next token descriptor 
status; 


i Search for a local occurrence of the qualifier. If none found, and 
! the qualifier can be positioned globally, then search for a global 


} occurance. 


token = local_qualifier (.block, .number); 
IF (.token EQL 0) AND .block Cent_v 


c arch for local qualifier 
ver 
THEN token = global_qualifier T.Block, .mumber); 


! Se 
! If none, but allowed asset ty 
i Then search for global qualifier 


If no occurence was found, check to see if it is present by default. 
If not, then return CLIS_ABSENT. 


F .token EQL 0 ! If no occurrence found, 
THEN IF NOT .block Cent yaeetprue) ! and not defaulted present 
AND NOT (.Block Cent_v_batdef] AND batch_job()) 
THEN RETURN cLli$_absent ' Then return not present 
ELSE default = true ' Else set default flag 
ELSE default = false; ! Else clear default flag 


‘ 
' the qualifier is either explicitly, or defaulted, present. If any keywords 


B-1986 12:15:88  DISKSUMSRASTERSCDCL-SRCSRPCLINT.832;1°9° (IS, 


@ 
vo 
o 
_ 
2 
at 
oe 
ou 
ee 
“vue 
BOW 


3 $08 08 : were specified, search for them now. 
; 4 IF .keyword_ List C0] NEQ 0 ! If keywords to check 

$ $09 05 THEN BEGIN ' Then theck them 

; 608 Be status = process_heyvord.\ tet (.block, keyword _list (C0J,! Process keyword List 

; 609 0 -token, .default, qual_entity, 0, 0); 

; 610 os & IF (.status EQL cli$_defaulted) ! If presence was defaulted 
: 611 09 4 (.status EQL cli$_absent) ! or not found 
; ol¢ 10 THEN RETURN .status; ! Then return now 

; 61 11 END 

; 614 i 

s 615 1 ' 
: $18 13 No keywords are present. Just set the global status. 
; | 
; 618 1 ELSE IF .default ! Else no keywords, so set status 
; 619 1 THEN RETURN cli$_defaulted ! If defaulted, then return now | 
; 620 18 ELSE IF .token ([otr_v_negate] ! If negated, then 

3 6s) 19 THEN status = cli$_negated ! Then indicate so 
3 e ¢ ELSE status = cli$_present; ! Else mark as present 
: 6246 ; 
: $¢3 ; ! If qualifier was positioned locally, then convert the global status 

3 ? $ 25 to a local status. Otherwise, return the global status. 
; 628 6 IF .token Cptr_v_type] EQL ptr_k_comdqual ! If command qualifier 
3 6¢° $ssi THEN RETURN .Status : Then return current status 
3 6 8 ELSE IF .status EQL $l {3_present ! Else convert to local status 

; 631 $3 THEN RETURN cLli$_locpres ! Then indicate locally present 
; $36 3 ELSE RETURN cli$_locneg; ! Else indicate locally negated | 
; 634 $3) 1 END; 


003C 00000 QUALIFIER PRESENT: | 
.@ORD | 

| 

| 

| 


Save R2,R3,R4,R5 3 2145 
55 000000006 8F 00 0000 MOVL  &#CLIS_PRESENT, RS ; 
54 000000006 1 8F 00 0000 MOVL  &#CLISTDEFAULTED, R4 : 
33 000000006 8F 00 919 MOVL LIS- . RS : 
E 9 7D 0001 mova CK> =(SP > 2185 
00000000v EF i F OO1A CALLS 4 ‘ LOCAL QUALIFIER : 
: 800 4 BNEQ 4$° : 2186 
gp 05 Ad £ 00026 BLBC 5S(BLOCK), 1$ ; 
E 59 7D A MOVG BLOCK, -(SP) : 2187. 
00000000v EF 03 FB 0002D CALLS #2, GLOBAL_QUALIFIER : | 
2 DO 000 MOVL RO. TOKEN : 
iD 1 7 1$: BNEQ 4$ > 2193 | 
13 04 Ag 0¢ E 9 BBS #2, 4(BLOCK), 33 : 2194 | 
A 04 Ad E1 3 C #3. 4(BLOCK). 2$ : 2195 | 
00000000v iy i atch CALLS é : BATCH_JO8 ; 
0 p Bep 2$: MOVL  R3. RO : 2196 | 
4 0 5 RET ; | 
50 01 00 00051 3s: MOVL #1, DEFAULT > 2197 | 


K 13 
RPCLINT 16-Sep-1984 00:26: VAX-11 Bliss-32 V4.0-74 Page 19 
yoseO00 1 =3007 138% 90:78:39 SPER SUMEHASTERSEOCL SRCIRPCLINT.B32:1 . BD 

92 11 4 BRB 5$ £2194. 

D4 6 4$: CLRL DEFAULT > 2198 | 

04 aC 3 $: TSTL § @KEYWORD_LIST + 2206. 

F B BEQL : 

7E 70 D CLRO = = ( SP) t 2206) 

DD F PUSHL @# : 

DD 0006 PUSHL DEFAULT : 2207. 

DD 0006 PUSHL TOKEN ; 

04 aC DD 0006 PUSHL KEYWORD_LIST : 2206 
59 DD 0006 PUSHL LOCK : 

o0000000v. EF 7 FB OO0GA CALLS #7, PROCESS_KEYWORD_LIST : | 

4 0 D 0 1 CMPL STATUS, R4 ; 2208 
7 BEQL F 

53 0 pi 00076 CHPL STATUS, RB + 2209| 

18 12 0007 BNEQ $ 3 | 

04 00078 RET : 3210 

94 50 €9 gore 6$: BLBC DEFAULT, 7$ + 2216) 

0 54 DO O007F MOVL  R4, RO : 2217! 

04 0008¢ RET : 

09 62 14 €1 0008 7$: BBC #20, (TOKEN), 8$ : 2218 | 

50 000000006 8F D0 00087 MOVL  ACLIS_NEGATED, STATUS : 2219) 
03 11 OO008E BRB : 

50 55 D0 90090 8$: MOVL RS, STATUS : 2220 

00 62 04 1¢ ED 00093 9$: CMP2V #28, #4, (TOKEN), #0 + 2226 
14 13 00098 BEQL : 

55 50 D1 0009A CMPL = STATUS, RS : 2228 
08 12 0009D BNEQ : 

50 000000006 8F 00 0009F MOVL  A#CLIS_LOCPRES, RO ; 2229) 
04 000A6 RET : 

50 000000006 8F DO O00A7 10$:  MOVL  #CLIS_LOCNEG, RO > 2230 

04 OOOAE 11$: RET + 2232 


; Routine Size: 175 bytes, Routine Base: DCLSZCODE + 024F 


13 | 
meet IERcHREE QBSREERE YRGGHIARURHEH? Hc SPESunc tu osesh2O? GP 


: ? ! GLOBAL ROUTINE dcl$getvalue (radesc, rqwork, rqbits) = 

; 6 5 1 f=. 

: 835 gi) 

; 640 1! This routine is called to obtain the next value 

; ot 5 : associated with a named entity on the command Line. 
3 7 7 ! Inputs: 

; 645 tg 1/ rqadesc = Address of request descriptor data structure 
; ong rb ' : rqword, rqbits = ignored 
; 648 43 1 i Outputs: 

; e320 ‘? ! ; Routine value: 

; 63¢ 49 1! success = CLI$_CONCAT - a value terminated by a plus was returned 
; 65 50 1! CLIS_COMMA - a value terminated by a comma was returned 
; $38 2) : SS$_NORMAL - a value was returned (there may be more) 
; $26 38 : failure = 0 = there are no more values associated with the entity | 
; 658 55 1! ALL errors are signaled. 

: se pan 
; 661 58 2 BEGIN | 
: 868 $80 5 map | 
; roe: $6) radesc : REF BBLOCK; 
> 666 368 GLOBAL REGISTER | 
: 667 2264 block=9: REF BBLOCK, ! Address of entity descriptor block 
: 668 2265 number=10, ! Parameter/qualifeier number 

; 669 66 type=11; ! Entity type 
: on 68 3 LOCAL | 
: o7¢ 44 keyword_array : VECTOR C2*(dcl_c_context+1)+1); ! Keyword array 
3 
> 674 71 : 

> 675 A i! Initialize CLINT if necessary. | 
; 676 27 ! 

: 677 274 IF sce lSal clintown EQL 0 ! If not yer initialized, 
; 678 75 THEN initialize (.rqdesc Cint t_getval. ! then initialize parsing 
: 679 16 -rqdesc Cint_l_freevm)); ! 

: ar re 3: 

; ose 43 ! Verify that valid entities were specified. 

3 684 P $8 return_if_error (verify_entities (radesc Cint_w_entlen], ! Verify all specified entities 

3; 685 Ht keyword_array)); ! 
: Be ge 3: | 
; oss 286 Process each primary entity type differently. 

; on Ha CASE ;type FROM min_entity TO max_entity } Process each entity type differently 

: 692 $89 param_entity]: RETURN parameter_value(.block, .number, i Process parameter 


r 7 
vose000 aes Pad et te oe SRCORPCLINT. B32:1°%" (8) 


| 
| 
: 693 90 eyword_arra radesc Cint “¥- ent len]); ' | 
; 694 91 Cqual entity’: + RETURN quulffiercvs Seluet os ° snap ! Process qualifier 
; 695 3 yas arra ], fadesc tint. w entlen : ! 
3 098 9 Creserved_enti RETUR ceseev se. value(.mumber, ! Process reserved entity 
; 69 94 rad ree Cint_w_entlen]) ! 
; 698 95 TES ! 
; 699 38 
2 00 9 END; 
0E04 B08 ENTRY tits iY VALS. Save R2,R9,R10,R11 3 235) 
5E BC ae aE 44 MOVAB -68(SP) 3 
000000006 00 05 00006 TSTL  CTLSGL tL ENtOWN 3 2274 
0D is 000C BNEQ 1$ 3 
50 04 ag p 000 MOVL RQDESC, 7. : 2276 
7E 10 A D 0001 MOVQ Tae #4 3: 2275 
FCF4 «CF 02 FB 0001 CALLS #2, IN iTIALIZE ; 
SE DD 0001B 1$ PUSH SP : 2282 
52 04 AC 08 Ci 0001D ADDL #8, RQDESC, R2 F 
5 DD 00022 PUSHL RS 3 
00000000V gE 02 FB 00024 CALLS F VERIFY_ENTITIES 3 
5 5 E9 00028 BLBC STATUS, é 
02 01 5B OCF 4t43 CASEL TYP in, #2 : 2293 
0026 0016 0006 00032 2$ . WORD 65-38. ; 
5$-2$° : 
52 DD 00038 3$: PUSHL R2 : 2290 
0c A SF OOO3A PUSHAB KEYWORD_ARRAY+8 : 
7E 59 7D 0003D MOVQ BLOCK, =(SP 3: 2289 
00000000V_ EF 04 FB 90040 CALLS #4, PARAMETER_VALUE : 
04 0004 RET : 2293 
52 DD 00048 4$ PUSHL R2 : 2292 
0c AE 9F OO04A PUSHAB KEYWORD ue 3 
7E 59 7D 0004D MOVQ BLOCK SP) : 2291 
00000000V_ EF 04 FB 00050 CALLS #4, QUALIFIER VALUE : 
04 00057 RET 3: 2293 
52 DD ef 5$: PUSHL R2 3 2294 
5A DD OO05A PUSHL UBER 3 2293 
00000000V_ EF 02 FB 464 CALLS #2, RESERVED_VALUE Z 
04 00063 6$: RET 3: 2297 
3; Routine Size: 100 bytes, Routine Base: DCLSZCODE + O2FE 
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78 ROUTINE parameter_value (entity, param_number, keyword_list, retdesc) = 
7 ' See ae 

705 : 

7 This routine returns the next value in the List for 

70 a@ given parameter. 

708 

709 Inputs: 


i 

i 

i 

i 

i 

! entity = Address of parameter descriptor block 

: aram_number = Parameter number 

‘ eyyord. (ist = Address of List of keyword descriptors 
: retdesc = Address of return descriptor to receive value 
] 

i 

i 

i 

i 

i 


retdesc = Next value string in List 
routine value = status indicating presence of value 


| 
| 
| 
} 
j 
| 
| 
Outputs: | 
| 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
entity : REF BBLOCK, 
keyword_list : REF VECTOR, 


retdesc : REF BBLOC | 
BIND | 


SOONOVUSWN —OOODNOUSWN—O 


WAAR POPU NINPINININO NON 2 


WG 
wn 


wrk = ctl$gl_dclprsown : REF BBLOCK Address of command work area (WRK block) 
prmlim = ¢ (Sql _clingown Cdclt_l_prmlim) : VECTOR. Parameter context array 
y . 
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IA. A.A AIR PINPINPIPINIPININIDS 4 2 SO SS SS 


SNS NNN SNS NSS NSS SSS SSS SSS 
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PIRI INIPDPIPINIPPDNNINININDNIPIDININIPIPINIPNININIAIPYININININIAIPIPIPIPIPIPIPIPIPIPIPIPOPIPIPUNIPUPIPUPUNPUPUNUNY 


entity_context = by gM Cdcl_l_ent : VECTOR, Entity context array 
<0 token_context = ctl$gl_Clintown Cdcl_T_foken] : VECTOR; Token context array 
36 LOCAL 
37 3 found, ! Value found flag 
38 3 plm: REF BBLOCK; ! Address of current parameter context entry 
OS 
744 337 2 | Set initial conditions. | 
74 33 found = true; ! Assume value will be found 
744 340 retdesc dsc$w_length) = 0; ' and that the value will be null 
745 41 ctl$gl_clintown Cdcl_b_param]) = .param_number; ' Save Last parameter # requested 
746 *g ! (for local qualifier search) 
747 ctl$gl_clintown Cdcl_l_qual) = 0; ! Clear qualifier context 
748 & plm = prmlim C-ppren_number = 1); ' Find Limits for the parameter 
oy 346 ctl$gl_clintown Cdcl_b_param) = .param_number; ! Update the local qualifier context 
751 4 ! | 
75 38 ! Find our place in the pereneter alue list. If the parameter does not | 
et, rH ; appear on the command line, see if it is present by default. 
755 51 2 iF spim Colm b fstdesc] EQL 0 ! If param not on command Line 
75 6 THEN IF (T.éntity Cent_widefyal) EQ 0) : Then if param is not defaulted 
75 5 AND NOT.entity tent vdeftrue)) : 
758 54 OR (.plm Colm_b_nxtdesc) GTRU ! Or if all default values have 


| 

| 

yostO00 18-$e me aes rR yt nd get, 932:1°%° (85 
i 
i 


; 759 5 -plm Colm_b_lstdesc]) already been returned ; 

: 760 § THEN BEGIN Then no value is present ; 

; 761 zero_context_ m ohh $4 (0); Clear the context arrays : 

3 te 8 ae cli$_absen Return no value present | : 

; 764 6 | : 

; 765 e ! : 

3 £o8 $6 Update the context if necessary. : 
i; 768 64 IF pent tty ete context (0) NEQ .entity ! If there has been a change in context ; 

; 769 65 THEN ! Then update the context $ 

; 770 66 oases, context 697." > = sentity; ! Set the current entity context : 

3; 771 6/ token_Tontext ' Set the current token context 3 

: ore 68 zero_Ccontext_arrays %iD: ! Clear the rest of the context arrays : 

3s «7 9 ND;~ : 

3; «774 0 3 

: 775 71 ! : 

: 76 ys ! If no keyword List is specified, then if the parameter is present by default, : 

s YT 7 ! or has a default value, then return that default value. Otherwise, return é 

; ere Re the next parameter value and update the context. : 

; 780 76 if ineN TF sol List CO) EQL 0 ! If no keyword List is specified 3 

3; 781 77 im Colm_b b_fstdescJ EQL 0 ! Then, if the param value is defaulted : 

; 7 3/8 4 EN (IF Tfound = r default_value ' Then, corre that default value : 

; 78 79 (.e > O, .retdesc)) EQL true ' And, if this is the last default parameter | 3 

3; «784 380 THEN ata tpia: b_nxtdesc] = i Then so indicate 

3 «785 381 splm Colm_b_lstdesc] + 1) ! 

3; 786 $06 ELSE BEGIN ! Else, return the explicit value 

; 77 383 LOCAL token; 

; 

; 4789 385 IF spiacplat b_nxtdesc] GTRU .plm{Cplm_b_lstdesc] ! If all values have preacd returned, 

; 790 386 4 THEN ! Then no value is prese | 

; 791 387 4 plm tptn. b_quadesc]) = ' Set no more local auni titers 

; 79 388 4 ~pim pla. b_nxtdesc]; ' 

; 79 389 4 RETURN cli$_ sbeent:” ' Return no value found 

eB a | 

; 796 4 token = token_desc (.plm Cplm_b yobs teed ' Get the first value token | 

3; 797 39 get_specified_valu (token, .re desc); ' Return the value it marks 

: oe Soe plm” Cplm_b_quades-)] = .plm fplm_ b _nxtdesc] + 1; ! Set local qualifier pointer 

: 800 396 4 IF ctoung © 5 ets soxplicit. value (token, 0)) ! Find the next parameter value 

801 397 4 roune NEQ true) ' (but not the first in the next List) 

; $05 3 ies tesa y A.B table_index(.token)! If present, then point to i 

: 80 99 4 ! Else indicate no more value 

: 804 400 4 m Cplm_b_nxtdesc) = ' Force next CLISGET_VALUE to ‘pail 

; 805 401 4 -plm Cplm_b_lstdesc] + 1; ' 

: 806 rt 4 RETURN true; ' But return that this value was found 

; 807 40 END; : 

; 808 404 | 

; 809 405 zero_context_arrays (1); ! Clear the rest of the context arrays 

; 810 $06 END 

: 11 40 

; 812 408 ‘ 

3; 815 409 ! If a keyword list is specified, then call process_keyword_list to check 

; gis ret the keywords. 


000000006 + 
000000006 00 
40 Ad 
5C = AO 
01 

10 BC 
08 AC 
78 = =A0 
08 AC 
FC A041 
08 AC 
59 

01 8 A6 
$¢ 

9 

04 AC 
1¢ = =6A0 
3 
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3 VAX-11 Bliss-32 V4.0-74 


v04-000 DISKSVMSMASTER: COCL.SRCIJRPCLINT.B32; 
; 816 tig ELSE BEGIN ! A keyword List has been specified 

; if rt LOCAL default, qual, token; 

: B19 415 IF spin Colm.botstdesc] EOL 0 ‘if 

3 0 £18 THEN default = true ' Then set the default f 

3 1 417 4& ELSE BEGIN ! Else, 

3 ¢ 418 4 default = false; ! Clear the default fla 

3 41 token = token_desc (.plm Colm_b_fstdescJ); ! Find the first param 

; & ¢ : ? END; ! 

; H : & ¢ ual = 0; ' Assume first token will be defaulted 
3 § 4 ound = process_keyword List (.entity, keyword_list (0],! Process the keywords 

; . ? ; .token, .default, param_entity, .rétdesc, qual); 

; $9 426 IF gQyet GTR 0 ! If value was not defaulted 

; 831 427 THEN plm Cplm_b_quadesc] = table_index (.qual) + 1 ' Then soress local qualifier context 
3 He : 8 ELSE plm Cplm_b_quadesc] = .plm Eplm_b_lstdesc] + 1; ! Else a 

: B34 430 END; 

; 835 431 

; 836 4 § RETURN . found; ' Return status 

; 837 24 1 END; 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
WRK, R14 


#8, SP 
CTLSGL_CLINTOWN, RO 
64(RO), R? 
92(RO), RB 


TDESC 
PARAM NUMBER, 143(RO) 
120(R0) 
PARAM_NUMBER, R1 
=4(ROJCRI], PLM 
PARAM_NUMBER, 143(RO) 


R 
1(PLM) 


#0, (SP), #0, #28, (R7) 
#0, (SP), #0, #28, (RB) 


7$ 
(R7), ENTITY 


low no more local qualifiers 
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$s-32 V4. 
K, RO 
tise R1 
#i2, R 
3)22¢R1) CRO], TOKEN 
QUAL 
RETDESC 
, 


KEYWORD. Ree st 
oy. PROCESS _KEYWORD_LIST 
RO, FOUND 
By 
15$ 
QUAL, RO 
Te TOCRODS RO 
#2, RO, 3(PLM) 


#1, 2¢PLM), 3(PLM) 
FOUND, RO 
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; 4 r : ! ROUTINE qualifier_value (entity, qual_number, keyword_list, retdesc) = 
: 841 4 $ 1 !=<- i 
3 tg 4 1! i 
3 rb : 3 ! } Return the next value in a qualifier value List. i 
; 845 440 1! Inputs: i 
> 846 441 1! i 
3; 847 tts 3 entity = Address of leter cokes descriptor block i 
$ Bee 4435 1! qual_number = Qualifier number i 
; 849 444 1! keyword_list = Address of List of keyword descriptors i 
; B20 re ! retdesc = Address of return descriptor to receive value 
; ges ae9 1 ! Outputs: i 
; 85 448 1! | i 
3; 854 449 1! retdesc = Next value in List i 
; Hee re i ti l tatus indicati f val | 
3 routine value = status indicating presence of value ; 
: B57 ie ee fy | 
; 858 453 1 i 
; 859 2454 BEGIN ‘ 
; 860 3639 | : 
; 861 456 MAP i 
; 86 2457 entity : REF BBLOCK, | i 
; 86 2458 keyword_ list : REF VECTOR, i 
3; 864 2459 retdesc : REF BBLOCK; i 
; 865 460 i 
; 866 461 BIND i 
; 867 a36 2 entity_context = ctl$gl_clintown Cdcl_l_entity] : VECTOR, ! Entity context array ; 
; 868 see § token_Context = ctl$gl_Cclintown Cdcl_T tokens : VECTOR, ! Token context array ; 
3 Ha sege last_qual = etl$gl_c intown Cdcl_t_quaT]; ! Last qualifier token i 
3; 871 2466 3 GLOBAL REGISTER j 
; 872 2467 block=9: REF BBLOCK, !' Address of descriptor block i 
; 873 2468 § number=10, ' Qualifier number i 
; 874 2469 type=11; ! Entity type j 
; 875 2470 2 i 
3; 876 2471 2 LOCAL i 
; 877 $e78 found, ' Value found flag ‘ 
; 878 247 token; ! Address of token descriptor i 
3; 879 2474 i 
; 880 475 ! | F 
; 881 476 ' Set initial conditions. i 
: HY 477 i i 
s 88 478 found = true ' Assume value will be found i 
; 884 479 retdesc Ldsc$u length) = 0; ! Assume the value will not be found F 
Py 885 280 : | ‘ 
5 ges 4 § ! Find the last occurrence of the qualifier on the command line. If the | i 
; 888 4 ! quel ty tor does not appear on the SOmBSEaT Line, see if it is present by i 
3 890 " : efault. If it isn’t, return CLIS_ABSENT. 
; 891 4 token s eres L.qyal it ier C-enett » «Qqual_number); ' Look for local occurances 

; 89 4 IF ¢ (.enti ty ent_v_verb)) i + none, but global allowed, 

; 4, ? 3 - TiN Token = global_qualifier(.entity, .qual_number); ipen ope fe fo . global occurances 

3 ' oken s 

; 895 490 THEN IF NOT .entity Cent_v_deftrue] i Then check tof default presence 


areLyNy ifcSennt9Rs On:26:35  y 


; 491 AND NOT (.entity Cent_v_batdef] AND batch_job())! 
: $38 499 THEN BEGIN Pape. one 
3 43 49 last_qual = 0; ; 
: 494 zero_context_arrays (0); : 
3 495 RETURN cli$_absent; ! 
; 901 +38 END; 
: 3 t3n 5 
; 904 199 ! If we are not doing the same qualifier as Last time, then reset 
3 306 230 } Otherwise, use the old context. 
: 90 IF (.entity_ context [0] NEQ .entity) OR (.last_qual NEQ .token) ! 
: 908 208 THEN BEGIN . = 
; 909 504 token_context 93 = 0; : 
; 910 505 entity_context [0] = .entity; } 
; 911 208 lLast_qual = .token; ; 
3 aig 50 zero_context_arrays (1); ; 
3 #1 508 ND; 
He BB 
; 916 511 ! The qualifier is explicitly, or defaulted, present. If no keyw 
3 a 21¢ are specified, then return the explicit or default qualifier va 
; 919 514 IF skeyword list (0) EQ. 0 } 
; 920 515 THEN IF .token LEQ 0 ° 
; 3) 218 THEN RETURN get_default_value(.entity, %, .retdesc) ! 
: 9 ; 51 ELSE RETURN get_next_value(.token,.entity,0,.retaesc) ! 
: 357 319 8 
3 $35 3531 If a keyword List is specified, then process that list. 
; 927 5 § ELSE BEGIN ! 
; 928 52 LOCAL default; : 
; 36? 524 IF ,token EQL ! 
; 930 525 HEN default = true ! 
; «931 526 ELSE default = false; } 
; 932 527 RETURN process_keyword list (.entity, keyworc_list C0], ! 
Py to en, -detau t, qua ent ty. ret esc, ° 

935 2528 k defauT L i d 0) 
3: 934 $263 END; 
; 935 $2 0 
; 936 531 1 END; 
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If still none, then give up 
Clear qualifier context 
Clear the context arrays 
Return no value present 


our context. 


Is context of Last call still valid? 


' No, reset the context 
' Set token context 


Set entity context 
Set qualifier context 
Clear the rest of the arrays 


ords 
lue. 


If no keywords were specified 


Then, if the qualifier value is defaulted 


Then, return the default value 
Else, return the explicit value 


Process the keyword List 
Default value flag 


Was a qual found on the command Line? 


No, then use default values 
Yes, then use explicit values 
?rocess the keyword List 


.QORD Save R2,R3,R4,R5,R6,R7,.R8,R9,R10,R11 
50 000000096 00 DO 9002 OVL CTL$ L_CLINTOUN, RO 
25 ge AD OF 00000 MOVAR  S3(RO)” RO 
57 35 AO 9 MOVAB 120¢R0S R7 
50 1D MOVL #1, FOUND 
19 CLRW = @RETDESC 
0 PUSHL  QUAL_NUMBER 
04 MOVL ENTITY, R6 
PUSHL R6 
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RPCLINT 16-Sep-1984 00:26: VAX-11 Bliss-32 V4.0-74 Page 29 
yOse O00 132808 -1 3c 99:78:38 DI EKSUMOMASTERSEDCL SRCTRPCLINT.B32:1 . 8 | 
00000000v Ff Q F 4 CALLS #2, LOCAL_QUALIFIER ; 
A p B MOVL RO, TOKEN : | 
1 5 BNEG + 2487) 
OF 05 Ab E BLBC (R6), 1$ : 
8 A bp 4 PUSHL UAL _NUMBER ; 2488 
00000000v gf FB 3 CALLS 3. GLOBAL QUALIFIER : | 
B D4 00043 1$ CLRL ORI + 2489) 
AD 4 TSTL ‘TOKEN : | 
gy 4 BNEG 3$ : 
D6 00049 INCL R11 : 
5 046 Ab EO 0004 BBS We. 4(R6), 3$ : 3490, 
A 04 Ab 03 £1 0005 C #3. 4(R6), 2$ + 2491 
00000000v FF 00 Fe 90055 CALLS #0, BATCH_JOB : 
é D4 0005F 2$: CLRL. (RP) + 2493 
1c 00 6E 0 2c 0061 MOVCS #0, (SP), #0, #26, (RB) + 2494 
1C 00 6E 69 2c a006F MovcS #0, (SP), #0, #28, (RO) : 
50 000000006 8F v0 0006p MOVL #CLIS_ABSENT, RO + 2495 
56 68 D1 90075 3$: CMPL (RB), R6 + 2502 
05 12 00078 BNEG : 
5A 67 Di OOO7A CMPL (R7), TOKEN $ 
16 13 90070 BEQL t : 
69 04 OOO7F 4$: CLRL + 2504 
68 56 DO 00081 MOVL 6, (RB) : 2505 
67 SA DO 00084 MOVL. TOKEN, (R7) : 2506 
18 00 73 ~ 00 2¢ 90087 MOVCS #0, (SP), #0, #24, 4(RB) : 2507 
18 00 6E = 00 2c 0008E MOVCS #0, (SP), #0, #24, 4(R9) : 
OC BC 0S 09098 5$: TSTL  @KEYWORD_LIST : 2514 
4 if 0098 BNEQ 7$ : 
A D5 0009A TSTL TOKEN + 2515 
OF 14 0009C BGTR F 
10 AC DD O009E PUSHL RETDESC : 2516 
7E D4 OO0AI CLRL. = = (SP) ; 
36 DD OOOA PUSHL RG : 
00000000V EF 0 FB OOA3 CALLS #3, GET_DEFAULT_VALUE F 
10 ac dD OAD 6$: PUSHL RETDESC + 2517 | 
7E D4 0008 CLRL. = (SP) ; | 
36 DD 000B2 PUSHL R6 : 
A DD 00084 PUSHL TOKEN ; 
00000000 EF 04 £8 000B6 CALLS #4, GET_NEXT_VALUE i 2 
5 B £9 OBE 7$ BLBC R11, 8$ : 33% 
0 1 bo C MOVL #1, DEFAULT 3 2525 
; 1 C4 BRB ; 
D4 C6 gs: CLRL DEFAULT : 2526 | 
—E 04 C8 9$: CLRL ~ ; t| 
10 AC DD OOOCA PUSHL RETDESC ; S| 
Q DD 90¢D PUSHL @ ; 
DD OOOCF PUSHL DEFAULT > 2528 | 
| 


RPCLINT b-f0 -1984 VAX-11 Bliss-32 V 0 
Wose O00 200-1383 99: 8: 8 DISKSVMSMASTER: tbe CL SRCSRPCLINT.B32:1" :1 et sf 
5A DD 00001 PUSHL TOKEN : 
OC AC DD 00003 PUSHL KEYWORD_LIST : 2527 
36 DD 0000 PUSHL R : 
00000000v EF 07 FB 0000 CALLS #7, PROCESS_KEYWORD_LIST : | 
04 000DF RET 3 2531 


; Routine Size: 224 bytes, Routine Base: DCLSZCODE + 0408 


De Se Se Se Se Se Se Se Be Se Se Se Se Se Ge FF Se Se FH Se Ge FH Ss Ge FH Se SH Se Be HSH Ge SH Se Be Se Se Se Ge Gs Se Se He Se Se Se Se Ge Se Se Sees Se Se Se eee 


vse 


wooo 


DOOODOOOOOO0O 
DAA AA AAAI 
WONAULSW OO 


$2e3 


FUSUSUSUSUSUSISUSOS OSS 


PARADA £ BS BB BE EEE NAA 
WEWN OS ODNAUES WN $0 OO NAME WI OOWODNOULS WN 


POPIPIPOPIPIPIPONIPIPINIPIPOPONINUNPononofnongd 


PAPA IAI IIT 


POPOPOPININIPININOPINONPIPUNoNoNonononononony 


SSF 
RIPPON IAIN & BW NAWWINHIA SE IAIN NIPUNININIPINID) 2 2 ee 


18-30-19 4 00:46:36 VAX-11 Bliss-32_ V4.0 age 


-74 P 
14-Sep-1984 DLSKSUMSMASTER-CDCL SRCIRPCLINT.B32:1 
ROUTINE reserved_value (number, retdesc) = 


i] 
Return the value associated with a reserved entity name. 


inputs: 


number = Reserved word number 
retdesc = Address of return buffer descriptor 


Outputs: 
retdesc = Value string. 
routine value = status indicating presence of value 


BEGIN 


P 
retdesc : REF BBLOCK; 
BIND 


wrk = ctl$gl_dclprsown : REF BBLOCK; 
LOCAL 

token : REF BBLOCK Address of curent token descriptor 
string : VECTOR (25; ! String descriptor 

CASE .number FROM 1 TO 2 
OF SET 


C1}: BEGIN 
token = wrk Cwrk_g_result]; 


WHILE (.token Cptr_v_type] NEQ ptr. endl ine) 
DO token = .token * ptr_c_length; 


string fo} = .token (ptr_v_offset]; 


Address of command work area 


Based on reserved word number 


S$LINE reserved word 
Start at first token descriptor 


Until end of command Line 
then skip to next one 


Line Length is offset to eol 


string = wrk Cwrk_g_buffer); i and set address of input buffer 
IF CHSRCHAR (.string (1)) EQL %C'$' ' If Line is preceeded with ‘'$'' 
THEN BEGIN ! then strip it off 
string fo} = .string £0} - 1; 
as g C1J = .string Cij + 1; 


(2]: BEGIN 
LOCAL verb :_ REF VECTOR C,BYTE); 


S$SVERB reserved word 


' 

i 
verb = .wrk Cwrk_l_verb]; i Get address of ASCIC verb string 
string fo = MIND T.verb (0), 4); ! Get length of verb 
string 1) = verb tid; Get address of verb 


31, 
(17) | 


$3233 


; Routine Size: 


retdesc 
retdesc 


RETURN true; 
END; 


102 bytes, 


K 14 


1enSep-1986 19:98:38 


dsc$w_length]_= .string [ ij, 


dsc$a_pointer] = 


5E 68 
H 000000006 00 
002E 
50 F9B6 
04 
50 
0c 
04 AE F492 
24 04 
04 
50 BE 
51 
04 
51 
AE 
06 =#A 01 
50 08 
60 
04 AO 04 
50 
Routine Base: 


OPP PVioOuiwO SP - PA DOO "oo-- 
SMMAO FW OS SIM MMM ODO LOunN— 


DCLS$ZCODE 


-String 


0000 00000 encoaten~° y 


ce $0008 SUBL2 
CF 0000¢ 


4$: EXTZV 
MOVAB 


WAIN WIWIWnonnn- 


YS FHA MDOOW™SPOOMOGL PU — 
@ 
@ 


5$: 


COOoOOCOCooooooooeo oO 


6$: MOVL 
MOVAB 
7$: MOVL 


o°oulo@o 099] 009 9 9 | OOM SMO 
So LSOOCSCOMSOD POO NINM—Mmn—Owom 


COooooooooo 


+ 


VAX-11 Bliss-32 V4.0-7 


Save nothin 
1 a 
NUMBER, wi, #1 

$-1$ 

=1 10¢R1), TOKEN 
#28, #4, (TOKEN), #4 
#12, TOKEN 

#9 #12 VCTOKEN) ; 
-2926(R1), ING+4 
aSTRINGS ‘. $36 


STRING 
— 


-66(R1), VERB 
(VERB), R1 


rm 


ING 
STRING+4 
- RO 


STRING+4, 4(RO) 
#1, RO 


DISKSVMSMASTER: cbeL. she RPCLINT.B32; fa9 
! Return value string 


14 
RPCLINT 1b-Se -1984 00:26: VAK-11 Bliss-32 V4.0-74 Pa 3) 
yoseo00 1a-Sep-19 4 90:98:36 DISKSVMSMASTER: CDCL.SRCJRPCLINT.B32;1 att sf 


: 190) ge } ROUTINE verify_entities (entity_desc, array) : entity_linkage = 
; 1008 %6 1 !--- | 
3 1908 "es 
; 1005 98 (1 verity that all the specified entities really exist. 

3 J 99 1! Fill in the keyword descriptor vtty Return the address 

; id eis ; of the descriptor corresponding to the first entity. 

> 1009 602 1 | Inputs: | 
; 1010 603 1! 
; 1011 604 1! entity_desc = Address of entity name descriptor 

3 136 5 ! } array = Address of keyword array 
3 ; 
3; 1014 607 1 ! Outputs: 
; 1015 608 1! 

3 iste 609 1! block = Address of first entity descriptor 

3; 101 610 1! type = First entity type 

; Ios ot) : : number = Parameter or qualifier number 

3 ioe ei$ : ; routine value = True if found, else error code 
: ° | 
3 1032 3615 : If entity not found, an error is signaled. 
1024 3617 .* | 
: 1025 618 BEGIN 
3; 1026 619 | 
: 1027 os P 

: Hs os! array : REF VECTOR; | 
; 1080 3638 BIND 
; Hs : wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 
; 1088 $56 EXTERNAL REGISTER 
3 1034 oe? block=9: REF BBLOCK, ! Address of descriptor block 
: 1035 628 number=10, ! Parameter/qualifier number 

3 1036 69 type=11; i Entity type 
: 1038 631 2! | | 
g HF 4 O36 ; If we don’t have a valid set of tables to search, exit with failure 
3 1061 6 IF .ctl$gl_clintown Cdcl_v_nowrkarea] ' If invalid tables 

3 1068 ° 5 THEN RETURN msg$_noentity; ! Then exit with failure 

é 
3 1044 6 : 

3 Hb oF Convert the Linear keyword List into a more usable keyword array. 

; 194? oY return_if_error (convert_keyword_list (.entity_desc, .array)); ! Convert into a keyword array 
> 1049 642 2 

3 1930 vo } Find the first entity. 

: 1936 645 if NOT (find_main_entity (array (0])) ! If we can't find the first entity 
3 1927 $66 THEN return_if_error (guess_entity (array (0))); ! Then look around for it 
> 1055 G48 2 | 

: : entity was successfully found, v y yw » 

1936 eh If entit fully found, then verify the keyword List 


32 v4 4 
18) 


16-Sep-1984 226: VAX-11 Bliss- 0-74 Pa 
14- eats 1 90:98:38 DI SKSVMGMASTERSLDCL SRCTRPCLINT.832: 1 
3; 1058 651 IF .array (2) NEQ 0 ! If a keyvord List is present 

; 1989 P 26 § THEN teturn.ift_error (verify keywords (.block, - type ! Then verity it 
3 1800 6 array $3));: 
: 1061 654 
3 1906 655 RETURN true; 
; 106 656 1 END; 
} 
| 
0004 00000 VERIFY_ENTITIES: | 
-WORD Save R : 2594 
50 000000006 00 »b0 6000 MOVL CTL S6t CLINTOWN, RO : 2634 

08 008C 0 £9 0000 BLBC 140(ROS, $ 
50 000310FC F 0 Ope nove #200956, RO 3; 2635 
52 08 ac ob0 ites 1$: MOVL ARRAY, R2 : 2640 

5 DD Benie PUSHL : 

04 AC DD OOOIC PUSHL ENTITY_DESC é 

00000000Vv F g 44 0001F CALLS #2 CONVERT_KEYWORD_LIST : 

1 E9 00026 BLBC STATUS, 4$ : 
5 DD 00029 PUSHL R 3 2645 

00000000v_ EF 01 FB 000 CALLS #1, FIND_MAIN_ENTITY : 

Cc 28 E8 000 BLBS RO, 2$ 3 
2 DD 000 PUSHL 3 2646 

00000000vV_ EF 9 FB 00037 CALLS #1, GUESS_ENTITY 3 

19 0 €9 0003E BLBC STATUS, 4$ 3 
08 Ae 0 00041 2$ TSTL (R2) : 2651 

1 13 00044 BEQL 3 
08 <A2 OF B2008 PUSHAB 8(R2) : 2653 

0A00 8F BB 0004 PUSHR #*M<RI,R11> : 

00000000vV_ EF 9 FB 00040 CALLS #3, VERIFY_KEYWORDS 3 

03 50 £9 00054 BLBC STATUS, 4$ 3 
50 01 DO 00057 3$: MOVL . : 2655 
04 0005A 4$: : 2656 


; Routine Size: 91 bytes, Routine Base: DCLSZCODE + O61E 


psestirsnspsesnnststh sei seeniealameniteienseteeinsochingtte ~ 


N 14 
ss Fetal RT Me Raat Sat 


04- 14-Sep-1 MSMA :CDOCL.SRCJRPCLINT.832; 
5 1065 3h } ROUTINE find_main_entity (name): entity_linkage = | 
3 H's 6 § 1 !-<- 

3; 1068 660 1! 

: 34 661 1! Locate a parameter, qualifier, or reserved onetty by entity name 

; 1070 662 1! string and return the address of the entity block corresponding to 

3; 1071 665 1! that entity. 

3 O76 664 1! 

3; 107 665 1 ! Inputs: 

3: 1074 298 1! 

3; 1075 667 1! name = Address of entity name descriptor 
3 1976 668 1! 

: 107 669 1 | Outputs: | 
3; 1078 670 1! 
3; 1079 671 1! block = Address of entity block 

3; 1080 672 1! type = Entity type 

3 \Oe4 of? : number = Parameter or qualifier number 

; 1983 675 1! routine value = True if found, else false 

3; 1084 676 1! 

3; 1085 677 1! If entity not found, an error is signaled. 

3; 1086 678 1 !--- 

3; 1087 679 1 

3; 1088 680 BEGIN 

3: 1089 681 

; 1090 68 MAP 

3; 1091 68 name: REF BBLOCK; 
3 109 684 

3: 109 685 BIND 

3 198 ty wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 

3; 1096 688 EXTERNAL REGISTER 

3 1097 689 block=9: REF BBLOCK, ! Address of descriptor block 

: 1098 690 number=10, ! Parameter/qualifier number 

3; 1099 691 type=11; ! Entity type 

3; 1100 69 

3: 1101 69 LOCAL 

3 1108 694 entity_name: VECTOR (2) ! Descriptor for above buffer 

: 110 695 buffer: VECTOR (32,BYTE), ! Buffer for upcased entity Label 

3 1104 $96 ptr: REF BBLOCK; ! Pointer to scan reserved word table 

3 1105 69 
3 1106 698 : 
3 By 444 Upcase the entity name string 

; 1109 701 2 entity_name (1) = buffer; ! Point at buffer 
3 1339 4 upcase (.name, entity_name); ! Upcase the string 
: 11 704 3! | 
3 AEF 706 : Search parameter and qualifier Lists for entity. 
3 1115 7 block = .wrk Cwrk_l_proptr); ! Get address of first block 
3 1138 , : type = param_entity; ! Assume parameter entity will be found 
: 1118 710 3 WHILE (true) ' Search parameter and qualifier lists | 
3 1119 711 DO BEGIN : 

3 1159 re 4 IF (find entity (entity_name)) ' Search entity List 

: 1121 713 «3 THEN RETURN true; ! Return true if found 


i then exit the loo 
' Get address of first qualifier block 
! Indicate qualifier entity 


notte xl foe ~ entity 


block = .wrk Cwrk_t _quablk); 
expe = qual_entity;~ 


RPCLINT 18-5¢ Sep-1984 VAX-11 Bliss-32_ V4.0-74 p 6. 
yoseou0 =3ep-1984 99: 8: 8 DISKSVMSMASTER:CDCL.SRC RPCLINT.B32;10 7" (135, 
; If qualifiers — searched, 

1 

! 


i] 
Search the List of reserved entity names 


number = 1; ' Start at first reserved vere 
ptr = reserved words; ' Point to 3 | Mel ry of table 
type = reserved_entity; ' Assume entity will be found 


VSWR —“OOONOULS wr 


Until end of table | 
If this is the entity requested 


WHILE (CHSRCHAR(.ptr) NEQ 0) 
IF CHSEQL(. *PENSRERA name (0) pr ar C1), 


Pe ee Fe 8s Oe Se Se Se Se Se Se FH Se Se Se FH Se SH SH Sees ee Sees 
i a ed 8d 2d 2 = = = = 2a 8a I 
aS SS Ss Ss SY SS SY SS Ss SF ss Ss 9 SS YM SM YY YS 


POPORPOPORoRORonoNonononononononononononononoronerny) 


SSN SSNS 


WUNWWWIWNUINInononononononununung SS 


BNAVUVS WN 0 OONG NEW OUOOAIOUE 


A=RONININ AWN NINA AIDINIPINPININIPININI WI 
J 


8 HAR(, ptr), ptrei, 

9 THEN RETURN t then return success 
40 ptr = CHSRCHAR Ate) + .ptr; Skip to next reserved word 
43 number = ,number + 1; ! Increment reserved word number 
4 . | 
re] RETURN false; ! Return unsuccessful 
46 END; 


| 
} 
003¢ 00000 FIND_MAIN. ENTITY: | 


Save Re. »R3,R4,R5 : 2657 
Vv 3 
ge 000000006 oe eS bon09 SUBLe | #e0" SP 
24 «AE 6E $6 000¢ MOVAB BUFFER, ENTITY_NAME+4 : 2701 
20 AE 9F 00010 PUSHAB ENTITY NAME : 2702 
04 AC DD 00013 PUSHL N : 
00000000v EF 08 FB 00016 CALLS #2, UPCASE ; 
0 65 00 0001D OVL WRK : 2707) 
59 C6 Ad DO 00020 MOVL  =58(RO), BLOCK : | 
5B 01 00 00024 MOVL : 2708 
20 AE 9F 00027 1$: PUSHAB ENTITY AME : 2712 
00000000v_ EF ? i 99 A CALLS 1. ERD. ENTITY : 
65 B D $0 CMPL RO; 4 #2 : 2714 
0¢ 13 00037 BEQL $ : 
50 65 D 9 MOVL WRK, RO : 2716 
29 CA Ad OD MOVL 30 (RO) BLOCK ; 
B 0 ; 4 MOVL YP + 2717 
F 1 0004 BRB : 219 | 
A po 45 28: MOVL NUMBER > 2723 | 
4 F93B CF 4 HOVAB Re SERVED. WORDS, PTR : f | 
64 8 30 3$: 1STB {Ptr R) : 272? | 
1c 4 BEQL : | 
50 64 9A 00054 MOV ZBL (PTR), RO : 2730 
50 00 24 BE 20 AE 2d 00057 CMPC ENTITY NAME, @ENTITY_NAME*+4, #0, RO, 1(PTR) ; | 


<z 


—————————--- 


RPCLINT 16-50 -1984 VAX=11 Bliss-32 V4. 7 ; 

v04- ~3007 138% 90: ¢: $ DISK Synen TER: cei’ she RPCLINT.B32; ‘ 9435 ' 
01 A4 00? Py | 

4 12 06 BNEQ = «S$ : | 

50 1 v0 006 4$: MOVL #1, RO : 2731) 

50 4 9A 00066 5$: MOVZBL (PTR)+, RO t 2732) 

54 0 CO 00069 ADDL2 RO, PTR : | 

5A D6 0006C INCL NUMBER t 2733 

0 11 443 BRB 3$ : Hay { 

0 04 00070 6$: CLRL = RO : 2736 

04 00072 RET : 2738 


; Routine Size: 115 bytes, Routine Base: ODCLSZCODE + 0679 
' 

| 

| 


5 
u 


ROUTINE verify keywords (input block, input_type, keyword_list) = 

aati 

ya peyuer? path from the aot found main entity. 
-MAIN_ENTITY should always be called before this routine.) 
Inputs: 


i 
i 
i 
i 
i 
: input block = Address of entity descriptor block 

: input . type = Type of en ty 

keyword list = Address of keyword name descriptor list 
i] 

i 

i 

' 

i 


Outputs: 


WR OODONOUESWOVOW 


routine value = True if found, else error code 
If entity is not found, an error is signaled. 


POPOPOROPONOPORORORonononononofnonononononononononononony 
SNS NSS 

HPAES NTUIUIVIUIUN ES BEE EPPO 
MEW (CO OONOAOUE WN" OOONOUS WOO 


RoPoPONOPOROROROROononononononononononononononononononony 
NANNING SNS SSS 
oO WO NAINA INN VISSS ARAN 

PORN CAR OROROROROROPUNOPONOROPONOPORUPOPUPPURUPOPUPUNUPUNUNNN 2 


> | 
ono 
w 


8 BEGIN 
G 
0 P 
keyword_list : REF BBLOCK; 
GLOBAL REGISTER 
4 lLock=9: REF BBLOCK, ! Address of entity descriptor block 
5 766 number=10, ' Parameter/qualifier number 
g type=11; ! Entity type 
8 LOCAL 
9 status; 
0 | 
$ Set up registers for find_keyword_entity(). 


block = - input_block; 


Set block to entity descriptor 
type = .input_fype; 
number = 0; 


Set type to entity type 
Clear number 


1 
: Return error if entity is a reserved entity. 
if .type EQL reserve entit ' Is entity a reserved entity? 
y 
THEN status = msg$_noent ity ' Yes, then error 


' 
! Search down the keyword path name. Validate each keyword entity block 
along the way. 


ii ee ee en eee 
PD DD ft ht teh tt oper a PN PS A TON Oy tt ee 
MFWR—OOONOuU w 


SSS SOR AN HSOBNOURUN—OO 


fwnr- 


EN 
UNTIL (.keyword_List Cdsc$w_length] EQL 0); ! Quit when no more keywords 


i a ee ee a me ee a ee 8 ee ee ed ad 8d nd od od ed 


Be Se Se Se Se Be Se Se Se Se Se Se Se FF Ge Se Se Se Se Be Fe Ge Se Fe Fe Fe Se os oe Ge SH Fe Se Ge Ge Se Se Ge Se Se Ge Se He Ge Se Se Ge Se Se Se oe Ge SESH Se esas 


98 ELSE DO BEGIN . 

199 IF NOT (status = find_keyword_entity(.keyword_list)) ! Validate the current keyword 
00 9 THEN EXITLOOP; ' Exit if invalid 

4 9 keyword_list = .keyword_list + 8; ! Get the next keyword 

08 

2 


R 


D 15 
16-Sep-1984 00:26: VAX=11 Bliss<=32_ V4.0-74 P 38 
14-Sep-19 4 99:48:38 Dt SKSVMSMASTERSCDCL SRCSRPCLINT.B32:1° 9" (105, 


vw 
oO 
a 
25 
= 


2 


' 
Signal any errors. 


3; Routine Size: 


— > HH 


$000 
RASSEIED 


000310FC 


18 
000000006 
oc 


000310F C 


THEN SIGNAL (msg$_noentity,1, 
RETURN .status; 


04 AC 
08 AC 
5A 
3 
: 
« f 
¥ 
gt 
8 
08 
oc 63 
: 
8F 
AC 
01 
i 
: 


DCLS$ZCODE 


Sep-1 
16-$ep- 


84 12:45: 


keyword List, cli$_entnf); 


OEOC 00000 — 


PM 


MWININININ  - OOOO 
nNo— 


ew 
nem 


5$: 


oo nooIgIgmM—-WIomMmon~"voo-C0-Cc007 
Fowl FF MMMNco0oo0wco oon FO 
COOoOooooooooooooooooooooo 
ooooooooooeo Ss 

NEO NYVINIO ON "9 FS NOM SO MO PO 


Cooooooooocoo 
MN & SPW 


+ O6EC 


3 


! If some ,cerare p= F sawal té 
! Then signal the err 
i Return the status 


Save R2,R3,R9,R10,R11 
INPUT -8L 06 k, Bgock Ck 
INPUT-TYPE, TYPE 
NUMBE 

TYPE, #3 
#200956, STATUS 
K YWORD_LIST, R2 


#1, FIND _KEYWORD_ENTITY 
RO, ree htOs 


Tus, 4$ 
oa, KEYWORD_LIST 
KEYWORD LIST, R2 


F 
RD_LIST 


#4, LIBSSIGNAL 
STATUS, RO 


ti. OSRCIRPCLINT. B32; ? 


Seve Se Se Ge Be Se Be Be Be Be Se Se Se Se Be Be Se Be Be Be Be Be Be 


15 


3 } 13 8 ! ROUTINE find_keyword_entity (keyword) : entity _Llinkage = 

: 121 j Sees 

3 3 i$ 1! 

3 1 18 4 1! Locate the keyword entity block specified by the next keyword 

; : 3 : ! } descriptor in the List. 

: 1 13 i Inputs: 

: } § 18 i keyword = Address of keyword name descriptor 

; 1289 B15 i Outputs: 

: 1 2 B19 1 block = Address of entity descriptor 

; 1228 . Ff type = Entity type 

5 : ; i ! } number = Parameter or qualifier number 

: 1 1 821 routine value = True if found, else error code 

fe oe 

; 33 825 2 BEGIN 

; 1837 827 2 EXTERNAL REGISTER 

3; 1238 828 block=9: REF BBLOCK, ! Address of descriptor block 

3; 1239 th number=10, ! Keyword number 

3: 1240 830 type=11; ! Entity type 

: 153 832 5 BIND 

: 1368 $e37 wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 

5 1245 835 2 LOCAL 

: 1245 oB3e buffer : BBLOCK (32), ! Buffer for upcased keyword Label 
3 iste seat keyword_name : BBLOCK Cdsc$c_s_bin); ! Descriptor for keyword Label 

: 1249 839 2! 

3 1639 oro Get and upcase the keyword name string. 

: 1382 seg keyword_name Cdsc$a_pointer] = buffer; ! Point at buffer 

: 125 84 upcase (.keyword, kéyword_name); ! Upcase the string 

1355 Bes 5 

:1 36 B46 i Get the first keyword entity block. If none, then exit with error. 

3 1358 tS } If successful, then calculate the block address and search for the keyword. 

: 1259 ap if .block Cent_l_user_type) EQL 0 ! Get the first keyword entity block 
; 1260 50 THEN RETURN mSg$_noentity; ! If none, then exit with an error 
3 196 851 block = .block Cent_l_user_type] + .wrk Cwrk_l_tab_vec]; ' Calculate its absolute address 
31 o¢ 26 block = .block Cent_l“next] + .wrk Cwrk_l_tab_vec : ' Skip list header 

5 1$o7 37 Na find_entity Tkéyword_name); ! Search for the keyword 


0000 00000 FIND_KEYWORD_ENTITY: 


F 
1eageei13Bs 99:98:88 eA eR her seeSapcu nt e32:4 


40. 
29e 45). 


; Routine Size: 


64 bytes, 


5E 
04 AE 


00000000v EF 


50 000310FC 


08 AS 


00000000V_ EF 


Routine Base: 


50 000000006 
Ag DE 


28 C2 
08 AE §¢ 
5E 0D 
06 AC OD 
10 0 
ar 
04 
0 09 
AO ¢ 
DE AO C1 
5E DD 
01 FB 
04 0 


DCLSZCODE + 0744 


WWW IN | = OOC0O 


NOK O>AVIDOS OO Pu 


18-Se-1 
12-888: 


— 
wn 
“e 


1986 19:45:38 


VAX-11 Bliss-32 V4.0-7 


Saye nothing 

BUFFER, KEYWORD_NAME +4 
YWORD 
(Lock) 
# pe RO 


K 
Md ASE 
1 
1 


WRK 
“(RD 16(BLOCK), BLOCK 
4(RO), 8(BLOCK), BLOCK 


SP 
#1, FIND_ENTITY 
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Se Se Se Fe Se Se Se Be Be Se Ge Se Se Se Se Be 


(18), 


2804 | 


H 15 
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3 } 5 } ROUTINE find_entity (name) : entity _Linkage = 

: 126 8 ] loco 

3; 3 § 28 1! 

3% 1! Locate an entity by entity name tg and return the address 

3 ; f r¢' : } of the entity block corresponding to that entity. 

; t3 6¢ i ! Inputs: 

: 1 03 B64 name = Address of entity name descriptor | 
He BERS | | vous 
3 1279 868 1! block = Address of entity block 
3 1580 oe? 1! type = Entity type 
3 ; 3 ary : number = Parameter or qualifier number 
31 HE ors 1 i routine value = True if found, else error code | 
3 1284 8735 1 !-<- | 
3: 1285 sere 1 
3; 1286 875 BEGIN 

TR BE 8 ap 
> 1289 878 name : REF BBLOCK; | 
1594 B80 9 BIND | 
; 1382 tt wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 
3 129% 288 EXTERNAL REGISTER | 
3; 1295 884 block=9: REF BBLOCK, ! Address of descriptor block 
; 1296 seoe number=10, ' Parameter/qualifier number 
3: 1297 886 type=11; ! Entity type 
He BRS voc 
; 1300 2859 Label_string; | 
: 1308 3381 number = 1; ! Start at entity 1 
; 1304 89 WHILE (.block NEQ 0) ! until end of entity List | 
3; 1305 894 dO 
3 1308 895 BEGIN ! | 
; 1308 897 label_string = .block + .block Cent_w label]; ! Get Label address 
: 134 599 IF (.mameCdsc$w_length] EQL CHSRCHAR(.Label_ string)) AND ! Check Length and Ist char.. 

3 1311 900 4 (CHSRCHAR(SnameCdsc$a_pointer]) EQL CHSRCHAR(.Label_string+1)) 

: 1318 $02 i BEGIN 

> 1314 903 4 ; 

; 1315 904 4 IF CHSEQL(.name Cdsc$w_length], .name Cdsc$a_pointer], ! If this is the one we are looking for 

3; 1316 905 4 CHSRCHAR_A (label_string), .label_string, 0) ' 

3 Ea 308 4 ba RETURN true; ! then return success 

; 1319 443 IF .block Cent_l_next) NEQ 0 ! If not end of List 

; 1320 90 THEN block = .Block Cent_l_next] + .wrk Cwrk_l_tab_vec] ' then skip to next block 

3 1321 910 ELSE RETURN asgs_nognt ity: ' else terminate loop 

3 1322 911 number = .number + 1; ! Increment entity number 


15 | 
18-00-1984 93598: 3y | PEKSUMBMASTERSCOCL SRCSRPCLINT.032:1°%° (163 


aig END; . 
914 RETURN msg$_noentity; 
915 END; 


Seve R2,R3,R4,R5 


. : 2855 
5A 01 v0 0 02 MOVL #1, NUMBER : 5s 
4 04 AC D MOVL NAME, R4 : 2899 
3 D5 00009 1$: TSTL OCk + 2893 
13 00008 BEQL 
55 18 Ad 3¢ 00000 MOVZWL 24(BLOCK), LABEL_STRING 3 2897 
5 59 £0 90011 ADDL2 BLOCK, LABEL_STRING : 
50 63 A 00014 MOVZBL (LABEL STRING), RO + 2899 
64 : B1 00017 CMPW ORO, (RS) : 
17 12 OOO1A BNEG ; 
01 «AS 04 B4 91 0001C CMPB = «@4(R4), 1(LABEL_STRING) : 2900 
10 12 00021 BNEQ 2 $ 
50 85 9A 900 3 MOVZBL (LABEL_STRING)+, RO + 2905 
50 00 06 «B4 64 2D 900 é CMPCS (R4), @4(R4), #0, RO, (LABEL_STRING) + 2904 
04 12 002d BNEQ 2$ : | 
50 01 p O02F MOVL #1, RO : 2906 | 
4 000 é RET 3 | 
08 a9 D3 00033 2$: TSTL B(BLOCK) + 2908 
11 13 00036 BEQL $ F 
50 000000006 00 od 0038 MOVL. WRK, RO > 2909 
59 08 Ag DE AO Ci 0003F ADDL3 -34(R0), 8(BLOCK), BLOCK ; 
5A D6 00045 INCL NUMBER + 2911 
CO 11 00047 BRB 1$ + 2893 
50 000310FC 8F 00 00049 3S: MOVL #200956, RO : 2914 
04 00050 RET : 2915 


3; Routine Size: 81 bytes, Routine Base: DCLSZCODE + 0784 


15 | 
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ROUTINE guess_entity (array) : entity _linkage = 


<D 
#8 
Ss 


ntities), that may be at any 
in the array with the keyword 
r 


s first, then parameters. 


Locate a given entity (or List of e 
level, by entity name string. Fill 
path that we found. Search qualifie 


Inputs: 


oo MEWN—OOMW 


array = Address of keyword array 


DOOOODODODOOCDOODDOODOODOO0O0O0O0O 


WWW NAIAIAAIIROPOPOPNONOPONN | 


AROOWODNAUE WN “OVO NOULS WN OOOO 


i 
i 
i 
i 
i 
i 
i 
i 
; Outputs: 
i 
i 
i 
i 
i 
i 
' 
i 


3 3 1 

... 1 

3 3 1 

3} 1 

3; 1 1 

. 7 1 

3 3 1 

2 1 

3 3 1 

3 7 1 

: } 

ie } 

3 1 ¢ 1 block = Address of entity descriptor 

3 1 1 type = Entity type 

3 : ¢ } number = Parameter or qualifier number 

$ ! $ : routine value = True if found, else error code 

3 } re ! If entity not found, an error is signaled. 

3; 1350 9 1 

3 1351 93 BEGIN 

3 7 25 94 

3 132 94 MAP 

3 1554 94 array : REF VECTOR; 

3; 1355 94 

3 1328 944 BIND 

5 } HA Bee wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 
: 1388 947 EXTERNAL REGISTER 

: 1 948 block=9: REF BBLOCK, ! Address of descriptor block 
3; 1361 949 number=10, ' Parameter/qualifier number 

5; 3 $ 950 type=11; ! Entity type 

3 1 951 

3 1 326 LOCAL 

: it + #1 95 found, 

3 1 954 buffer : BBLOCK (32), ! Buffer for upcased keyword Label 
3 Et Bee keyword : BBLOCK Cdsc$c_s_bln]; ! Descriptor for keyword Label 
: 1368 957 ‘ 

3 : A +4 : Get and upcase the keyword name string. 

; 1372 960 keyword Cdsc$a_pointer] = buffer; ! Point at buffer 

3; 137 961 upcase (.array, keyword); ! Upcase the string 

3: 1574 366 

3; 1375 96 4 

3 ‘ A] age : Check the qualifier entity descriptors first. 

: 1378 3] block = .wrk Cwrk_l_quablk); ! Get first qualifier entity block 
3 ! 79 96 type = qual_entity; ; ! Set qualifier type 

: 1381 365 WHILE (true) ' Search qualifiers and paramters 
; 1386 970 DO BEGIN ! ; 

3; 138 971 number = 1; ! Set first entity 

3; 1384 972 


<z 


#8 
ss 


ooo 


wr 


COCOONS 
WR" OOONOUSW 


OWOODOD0OO00000O0 


w 


oooono 
‘Co.COCD 
woo 


3 


=POPNINININPINININI WINNIE BB PESOS 


SBISARANLSSSLESR 


De ee ee ee et ee ee ed ed ed et ed ed ed 


| el ee tel ek ek el el al ad al ad ae ad 


at te 
fwrn—o 


00000000Vv 


00000000v 04 
0 


block NEQ 0) 
GIN 


IF (found = dite ~h getty (keyword, .block, 2, 
array (0))) 
THEN RETURN true; 


IF .block Cent_l_next] NEQ 0 
THEN block = .block Cent_l_next] + 


blo 
ELSE EXITLOOP; 


number = .number + 1; 
END; 


Check the parameter entity descriptors. 
"IF .type EQL param_entit 
THEN EXITLDOP; ie . 


block = .wrk Cwrk l_proptrd; 
type = param_entity; 


! If keyword was not found, then signal an error; 
gS_noentity. 1, array [COJ,cli$_entnf); 


noentity; 


52 000000006 
5E 


04 AE 


wrk (wrk ttab_vecd! 


00000 GUESS_ENTITY: 
WORD 


OOoCooocceea 

3 3 O 

PRIMO MO SPS NLOVTOW AO 
PAM 


SSSSSSSSSeSooeeoee 
OooOOooooo 


Fe oe 
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SKSVMGHASTERSCD CL SRCSRPCLINT.B32:1 . at 
Check each entity in the List 


Is keyword down this path? 

i Yes, then stop looking 

If more entity blocks 

Then calculate address of next 
Else quit this loop 


! Increment the entity number 


If poreneters already searched 


then exit loo 


p 
Get first parameter entity block 


Set parameter type 


KEYWORD+4 
ARRAY 

#2, UPCASE 

WRK, R 

-54(R0), BLOCK 

* NUMBER 


KEYWORD 
#4. GUESS _KEYWORD_ENTITY 
FOUND, 3$ 


08 8 

51 69 
Ag DE A 
: 

01 6 
51 83 
59 C6 Al 
58 01 
be 

000000006 8F 

04 aC 

090310FC ar 

00 e 
50 000310FC F 


Routine Base: DCLS$ZCODE 


V4.0-7 
TER: cei sre RPCLINT.B32; 39 


Swoon 


ww 
an 
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oonoo070-9000—0°0-"—”97270-——"° 
} + pate 609 6 Ne 9 9 4 


—PSunwon 
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<a 
r 
ge 
—_ 


3 tig O04 } ROUTINE guess_keyword_entity (keyword, block, level, array) = 

: 1238 5 1 !--- 

3 141 4 1! 

; 1420 07 1! Locate the keyword entity block specified by the next keyword 

3 1 1 43 1 } descriptor in the List. 

3 14 3 10 1 ! Inputs: 

3 1426 011 1! 

3 1425 ois 1! name = Address of keyword name descriptor 

3 14 $ 1 1! block = Last entity block 

: 14 % 1! level = Depth of seers® 

3 1428 is FF array = Keyword descriptor array 

3 1429 p18 1! 

3; 14350 01 1 ! Outputs: 

3 1431 018 1! 

3 14 ¢ 019 1! array is initialized 

7 14 020 1! 

3 Ut , 1 ; H routine value = True if found, else false 

3 1436 0 : 1! If entity is not found, an error is signaled. 

3 1437 024 1 !-- 

3: 1438 025 1 

3 1439 ps8 BEGIN 

3 1440 027 

3 1441 028 MAP 

3 re 029 block : REF BBLOCK, 

3 144 030 array : REF VECTOR 

> 1464 031 keyword : REF BBLOCK; 

3 1445 O36 

3 1446 hy BIND 

: ret 4 ote wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 
3 1449 036 LOCAL 

; 1339 ORs keyword_label : REF VECTOR C,BYTE); ! ASCIC entity name from tables 
3 1ee6 039 $ , 

3: 145 040 ' Get the first keyword entity block. If none, then exit with error. 

g pes: Bes : If successful, then calculate the block address and continue. 

3 1456 068 IF (.block Cent_l_user_type] EQL 0) ! If no more keyword entity blocks 
3 1457 044 OR (.leveT EQL™2*(dcl_c_context + 1)) ! or too deeply nested 

3: 1458 045 THEN RETURN false; ! Then exit with an error 

3: 1459 B66 block = .block fent_| user type] + ,wrk Cwrk_l_tab_vec); ' Calculate the address of the first block 
3 10g iH block = .block Cent~l=next] + .wrk Cwrk_l_taB_vec : ! Skip list header 

5 146 04 ' 

3 1468 pee : Starting with this block, search the keyword List for the specified keyword. 

3 1465 O98 WHILE (.block NEQ 0) ' Continue until an exitloop 
3 1606 05 DO BEGIN ! 

3 re 14 b2e keyword_label = .block + .block Cent_w_label]; ! Get keyword Label 

on ae , 

: 1470 ' If we find the keyword here, then we are at the deepest point in 

3 1471 058 ! the search. Shift the lefotover keywords into the array at the 

3: 1472 059 ! appropriate level. 


N15 
vos=000 1er$ep-1986 12:95:38 bt 
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X-1 is 
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3: 1473 860 ; : 
3 1474 1 IF CHSEQL (. keyword c$w length], .keyword Cdsc$a_pointer],! Is it the keyword we want 
> 1475 806 . “xyer “{abel Eos kéyword. Label abe 0) a : " eet 
3 1e78 4 THEN BEGIN ' Yes, then fill in the array 
; 147 064 4 LOCAL t_level; ; 
: 16% Os 2 t.level = 1; ! Set level to start search at 
: 1480 06 WHILE ((.t_level LEQ del_c_context) ' Count number of Levels of k | 
: 1481 be8 § AND’ trarrey Coe ctrLseels Nea 0D) 1) gape mper no paar Aire Sate antes | 
; re a4 ? DO t_level = .t_level + T; ! 
3 1484 71 4 IF (dcl_c context = .level/2) LSSU .t_level ! If they won't fit in the left 
: 1485 iH : THEN"RETURN false: = imeatzvangce | 
: 1487 074 4 CHSMOVE (4*2*.t_level, array (OJ, array C.levelJ); |! Shift the keywords o 
> 1488 075 4 RETURN true; . . 2 ! Exit with success sats | 
1B m , 
: 1491 078 ! If the keyword is found further down the tree, then we are currently | 
; 1e38 $050 ' at an intermediate level. Just insert the current keyword at the 
3 sear Hit appropriate level. 
; 1e2 s0n8 "JF guess_keyword_entity (. keyword, ae ehgyel + 2, If the keyword is found deeper down | 
3 1497 sone 4 THEN BEGIN } 
3 1498 085 4 array C.level] = .keyword_label (0); ! Then insert the current keyword 
3 1499 086 4 array C.level + 1] = keyword_label f1); ! into the array 
: 1500 087 4 RETURN true; ! Exit with success 
3 139) 3 END; ! 
1805 3090 | 
: 130 3092 If no match, but more blocks, then keep looking. | 
3; 1506 09 IF .block Cent_l next] EQL 0 ! Are there more entity blocks? | 
3; 1507 3094 THEN RETURN false; ! No, then error | 
; 1508 Shoe block = .block Cent_l_next) + .wek Cwrk_l_tab_vec); ' Yes, get next 
$1) rn in | | 
: 1511 3098 RETURN true; ' No-op 
3; 1512 099 1 END; | 
| 
OFFC 00000 GUESS_KEYWORD_ENTITY: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 3003 | 
5B 000000006 00 9 9002 MOVAB WRK, R1f : 
51 08 AC DO 000 MOVL BLOCK RI > 3043 
10 Al p 990 TSTL (RIS ; 
04 1 BEQL 3 | 
10 oc aC OI 1 CMPL BVeL. #16 3: 3044 | 
0 \¢ 16 1$ BNEQ : 
OOAC 3 1 BRwW : 
08 AC 10 At ; rat if m ADDL wer ROS 16(R1), BLOCK : said 
51 BB OAC D0 00 25 MOVL BLOCK, RI : > 3047 | 


ea 


08 AC 


51 


52 


9E 


08 Ac 


3; Routine Size: 202 bytes, 


08 Al AO 
; Re 

7 ~ 

A 8 A 

6 AC 

6D 

be 

0 6 

94 B89 os 8 
ein 

50 i 

07 9 

50 Of 

10 BC41 

ge 

0 

ED 

51 oc =uUCOA 

3) 6 

3 : 

50 5 

4 

50 08 

10 BC41 

10 + BC 30 
3 

10 AC 

0440 + 28F 

046 AC 

FF63 CF 04 
11 50 

10 BC47 68 
50 10 B8C47 

64 Ad 01 3=A8 
12 

08 A6 

11 

50 68 

08 A6 DE AO 
FF79 

50 01 
50 

Routine Base: DCLS$ZCODE 
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3 


6$: PUSHL 
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co 
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-=Oz 
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et 


SVOIWN $9 $09 OM MIDI WIN $9001 9 -9ONH990] ROOW—V0900 
Oo 
ad 
2Bwrz 
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- 
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oo 
w 
m 
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-34(R0), 8(R1), BLOCK 
KEYWORD, R9 
LEVEL. a7 
(R7), R10 
OCK, R6 


24(R6), KEYWORD_LABEL 
R6, KEY 
(KEYWORD_LABEL) 


RO 
@KEYWORD, @4(R9S, #0, RO, 1(KEYWORD_LABEL) 


6$ 
#1, T_LEVE 
T LEVEL. s 


#1, T_LEVEL, R1 
SARRATERY 

T_ LEVEL 

LEVEL, R1 

#2, Ri, R2 


RS° ' LEVEL 

56 - 

#8, RO 

@ARRAYCR1) 

RO. @ARRAY, a(SP)+ 

ARRAY 

#°M<R6,R10> 

KEYWOR 

a, GUESS_KEYWORD_ENTITY 
(KEYWORD_LABEL), @ARRAYCR7] 
@ARRAYCR7), R 
V<KEYWORD_CABEL) 4 (RO) 
8(R6) 

10$ 

WRK, RO 

3¢{R0), 8(R6), BLOCK 
#1, RO 

RO 


VAX-11 Bliss-32 V4.0-74 Page 
DISKSVMSMASTER: CDOCL.SRCJRPCLINT.B32;1 (18) 


o 
. 
ae 
e 
oe 
oe 
e 
e 
e 
* 
’ 
. 
e 
e 
o 
o 
o 
. 
& 
_ 
. 
° 
. 
2 
e 
. 
. 
. 
* 
e 
e 
e 
o 
* 
eo 
e 
oe 
* 
e 
e 
e 
° 
ca 
o 
o 
o 
7 
. 
e 


49 


se ' - 50 
-Sep- 126: VAX-11 Bliss-32 V4.0-74 Page 
1b-Se0-19 é 00:46:38 DIEKSVMEMASTERSEBCL SRCSRPCLINT.832:1 (19) 


5 
x 


: 1218 iss keyword List, token, default, 

: ! 1g ! : ROUTINE process_keyword_List sy PC tg 3s 6 i's 

: 151 1 } joce 

: i i8 ¢ Determine if the specified keywords are present. 

; i ? 199 : ; Inputs: 

i] i f primary entity block 

: | 195 i Rosunid Stet > convene of {ist of keyword descriptors "4 . 

: 1985 ee SSeS Eres iV ends thbckine detent tates ite te lee 

: ¢ i ckin ' 

; 13 5 118 i tte types Paran entity orvquallentity de endi0g on see of keywords 

o . °; r » 

: 1888 118 i mews an tek enate canes ond reture the requested value 

: 1388 1146 1! qual = Address of first possible address of qualifier vee pod 

; 1331 117 1! (requested by parameter_present and parameter_value 

: 18 1: 

: 1238 119 1 Outputs: 

4 1534 > 

: al are updated 

; 1333 : 1 abe Bg status’ indicating presence 

i ieee edi 

: Were | ae 

; 1843 156 MAP 

: ity : REF BBLOCK, 

: 1348 19 Revwerd iit : REF BBLOCK, 

+ 1545 3131 token :"REF BBLOCK 

> 1546 133 retdesc : REF BBLOCK; 

; 1547 

: TIN 

: 1349 : Be TLLPARAMETER: 

; 1550 ; 

; 135 pesrgg » Pom pe ! of descriptor block 
: 1382 138 block=9: REF BBLOCK, georess ¢ a 

: 1332 120 3 oe tie. i Entity type 

> 1555 141 

122 10 —_ = L_l_entity] : VECTOR, ' Entity context array 

; 1387 148 sokan’ Eontects eritel fl intce Catt foken]: VECTOR, : Token contest orrsy 

; 1389 145 last_qual = etl$gl_clintown Cdcl_t_quaT); ! Last qua 

: 14 . 

; 1361 149 ee ' Local loop vias 

: 126 \3 -+ sige ! Index into context arrays 
: 1588 189 tou i Value found flag 

: 328¢ 139 a ! CLISGET_VALUE in progress flag 
1368 123 gepgvelue. ' Result parse descriptor number 
: 1208 126 dex, ' Explicit keyword negated flag 
2 lee 12 “4 rae, ' Address of parameter Limit 
¢ 1288 136 nth, er wpe i Temporary token storage 

: 1569 155 temp_token; 

: 1390 156 


D 16 
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! 
Set initial state variables. 


get_value = NOT NULLPARAMETER (6); 
ctx = 1; 


block =" ,entity:; 

found = true; 

negated = false; 

' 

Search for each keyword in the keyword path name. 


WHILE (C keyword. List Cdsc$w_length] NEQ 0) 
in 


DO BEGIN 
find_keyword_entity (.keyword_list); 
keyword_list = .keyword_list * 8; 


! If we are doing a CLISGET_VALUE, then we must concern ourseives with the old 

! context arrays. If we are using a previous context, then update the token 

pointer, otherwise reset the context. 

IF .get_value 

THEN IF .block NEQ .entity_context C.ctx] 
THEN zero _context_arrays (.ctx) 
ELSE BEGIN 


IF ((.keyword_type EQL qual_entity) 
AND’ (ctx ter 1)) _— 7 


<z 


True if CLISGET_VALUE, false if CLISPRESEN 
Start with the second array eiements 

Start wih primary entity block 

Assume the keyword/value will be found 
Assume no keyword will be negated 


Wr "SO OONOous 


While we have more keywords 
ond are still successful 


Get the keyword entity block 
Point to the next keyword descriptor 


If we are doing a CLISGET_VALUE 

And if we have no valid previous context 
Then erase the old context 

Else try to use 


If at /QUAL= Level 


OO OOOO OOO 000900 00 09 09 09 09 09 09 AINSI NIN NINN NNO AAAAAAAOOUIUMN 


tt ee ee el a ek a a a a a a a ed a ed 
Oooo 


IF .get_ value AND } ! If walid context exists 
(.Block EQL .entity_context C.ctx)) ' 
THEN BEGIN ' Then use it 
token = .token_context C.ctx-1); ! 
! Was it defaulted? 
Yes, then say so 


IF .token EQL 0 
—— explicit = found = false; 


37 
3; 3 
3] 
71 
3 7 
; 1 
3 7 
3 1 
3 7 
3 1 
3 7 
3 3 
3 1 
3% 
3 7 
3 
3 7 
3 3 
3; 7 
3 1 
3 7 
3 3 
3% 
3; 1 
3 7 
3; 7 
3 3 
3 3 
; 1 
3% 
; 7 
3% 
3 3 
3 1 
; 7 
3 
3 7 
3% 
31 
3 7 
3 1 
3 7 
3; 
5 
3; 
3 
3 4 
3 
3; 7 
3 1 
3; 7 
3; 1 
3; 3 
3 7 
3; 1 
3; 7 
3 3 


eal * al ah val eal wal tal Mah valwaleal ea abeal eal eal val valeal al al Ale al eal taleal tale 

oo wooovovovowowvowvow 

BN SOB VR AReOD 
WIWNINWIWI WINN WINN WWIII NWI Ww 
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THEN token = .last_qual ! Then use the last qualifier context 
60 ELSE token = .token_context C.ctx-1]; ! Else use the Last token context 
604 IF .token LEQ 0 ' 1f defaulted last time 
605 THEN default = true !' Then set default value flag 
rey ELSE negated = .token ([ptr_v_negate); ! Else conditionally set negated flag 
608 END; 
$10 | 
611 i If we have not yet encountered a defaulted keyword, then try to find 
? ¢ the specified keyword either in the context or in the command string. 
614 8 if NOT .default ! If no keyword was defaulted yet 
? 5 : THEN BEGIN 
6 ; 0 LOCAL explicit; ! Assume some explicit value (not necessaril 
? 8 explicit = true; ' a match) is present 
620 
6 
6 
6 
6 
6 
6 
6 
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RPCLINT 
yoscoud 
IF ((.keyword_type EQL qual_entity) 
OR Cet x “NEO 1)) sips ' 
AND NOT (.get_value AND 
(,entity_context C.ctx] NEQ 0)) 


THEN explicit = found = 
get_explicit_value (token, 1); 


ViFtWN—OO® 


temp_token = 0; 
continue = false; 


WHILE (. found) 
DO BEGIN 


WHILE (.continue OR (.found AND 
(.token Cptr_b_number] NEQ .number))) 
DO BEGIN 
continue = false; 
a = get_explicit_value (token, 0); 


MIPMOITOPIPUPONOPUPOPONoPopnoporornonr 


IA. WIWAROROPOROROnONononong = 3 2 


WR OOONG NEW OVOONOUS 
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ISKSVMSMASTER:COCL.SRCJRPCLINT.B32;1 (19) 
If qualifier value 


or not level 1 parameter value, 
Then if not using an old context 


Then get the first value in the List 


tarerecaseses OC 


! Init temporary token 
Init local flag 


! Get last occurance of keyword 


' Check all keywords in the value list 


! for the one we want 


3 7 

3 

3 3 

g 

3 3 4 

sy 4 

3 3 4 

3 1 4 

sy 4 

» % 4 

3; 1638 

3; 1639 

3; 1640 

180) 6 

3; 1 : 6 

: 1644 6 

3: 1645 g 

3: 1646 § 

3 1647 i.e 

3; 1648 234 5 IF . found ! If no keyword was found 

3: 1649 235 6 THEN BEGIN ! Save found token 

; 1650 $ 6 temp_token = .token; ’ 

3; 1651 6 continue = true; ! 

3; 1 ¢ 8 g END 

3 1 239 ELSE IF .temp_token NEQ 0 ! Return found token 

: 1654 240 6 THEN BEGIN ! 

: 1655 241 6 token = .temp_token; ! 

3; 1656 stg 6 found = true; ' 

: 1657 $$¢ 6 EXITLOOP; ' 

: 1658 44 5 END; ! 

; 1659 3245 4 END; 

: 1660 3246 4 

: 1661 3247 4 IF . found ! If an explicit match was found 
; 1662 $508 4 THEN negated = .token ([ptr_v_negate] ! Then conditionally set negated flag 
3; 1663 249 4 ELSE IF NOT .explicit ! If no match was fourd and no values were p 
3: 1664 $20 4 THEN default = true; ! Then plan to look for a default value 
3; 1665 51 4 

3; 1666 $2¢ END; 

3; 1667 25 

3: 1668 254 ! 

3; 1669 255 ! If some keyword was defaulted, or no explicit value was found, then 

; 1979 339 : check to see if this keyword was defaulted. 

3 1or6 58 IF .default ' If no explicit value is present 
3; 167 59 THEN IF NOT .block Cent_v_deftrue] ! Then if the keyword is not defaulted prese 
3 1674 60 THEN found = false ! Then mark it not found 

3; 1675 61 ELSE found = true; ' Else mark it found 

3 1676 $¢ 

3; 167 6 ' ’ 

3; 1678 64 ! If we are doing a CLISGET_VALUE, and if we found the keyword, then update 

3 197) 65 } the context arrays. 

3 1681 67 4 IF f-get value AND . found) ! If context should be updated 

3 1686 68 4 THEN BEGIN ' Then do so ae 

: 168 § 4 IF NOT .default ' If keyword was explicitly found 
3 1684 0 4 THEN token_context C.ctx-1] = .token ! Then use that found token 


16-Sep-1984 
10-Sep-1984 


sa 


A 
I 


9:78:38 
D 

>; 1685 71 4 ELSE IF .entity context C.ctx] EQ 3° ' 

3 1 16 4 THEN token_context CpRe = 0 : 

; 16 75 4 ELSE IF F token context ete] LEQ _0 i 

; 16 74 4 THEN foken_context (.ctx-1] = -1 | 

; 1689 75 4 ELSE token-context E.ctx-1] = 0; ! 

: 1690 4 4 entity_context C.ctx] = .block; 

; 1691 7 END; 

3 1096 8 

3; 169 7 ! 

3: 1694 +} i Save the first possible address of a quaifier for the paramet 

3 123? 1 parameter_value routines. 

; 1899 He if NOT NULLPARAMETER (7) AND (. ctx EQL 1) AND .found AND NOT .d 

+ 1698 284 THEN .qual = .token; 

3 144 85 

: 1700 Ms] ctx = .ctx + 1; ! 

3; 1701 8 END; 

3 1006 88 

3; 170 289 ! 

; 1708 331 If no value was found, then return that status now. 

3; 1706 3 iF NOT . found g 

3; 1707 29 THEN RETURN cli$_absent; : 

: 1708 294 

3 1709 295 ! 

3 int? 347 If we are doing a PRESENT, then return the correct found status 

; ars $35 if NULLPARAMETER (6) 

3 171 98 THEN IF sGete ult ! 

3 1714 00 THEN RETURN clis. defaulted ! 

: 1715 01 ELSE IF scence ptr v_negate) t 

: 1716 308 HEN RETURN elise negated ! 

3 1717 30 erst RETURN cLli$_present; ! 

3; 1718 04 

3 1719 05 ! 

3 1731 $n If we are doing GET_VALUE then return the appropriate value and 

3 17 ¢ 308 IF sGete ult ' 

: 172 309 THEN IF shegete } 

3 Hess 310 RETURN cli$_absent 

3; 1725 311 ELSE RETURN get_default_value(. black. ated ubetdene?) 

3 1796 315 ELSE RETURN get_next_vaTue(.token, .block, .ctx-1, .retdesc);! 

3; 1728 3314 1 END; 


OFFC 00000 PROCESS ~KEMWORD LIST: 


WO e R2, 
SE 0 000 re 1+ 
50 000000006 000 Move. cTL$ a 
08 A 40 A 00¢ MOVAB 44(RO) 
5 3 A 011 MOVAB (RO) 
04 AE A oF B15 V 1 (nO) R 
06 6C 91 OOO1A CMPB (AP), #6 


X- 
SK 
! El 
Th 
Ei 


1 Bliss-32 V 

VMS 
e if no old conte 

n mark keyword ' _~ default” 
se if already defaulte 


1 
$ 
s 
e 


Li 4.0-74 
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f 


ou 
~w 


Then mark ‘‘default value already returned’ 


Else mark ‘'new default’ 
Update the entity context 


er_present and 
efault 


Increment the context level 


If the keyword was not found 
Then say so 


now. 


! If doing a PRESENT 


If value was defaulted 
Then say so 

Else if it was negated 
Then so indicate 

Else say it was present 


status. 

If the keyword was defaulted 
and if a keyword was negated 
Then return absent 


Else return the default value 
Else return the explicit value 


R3,R4,R5,R6,R7,R8,R9, R10, R11 


= Page 54 
16 “11 Bliss-32 v4.0 ee 31 (19) 
-Sep-1984 00:26: VAX :CDCL.SRCIRPCLINT.832; 
18-Se0-1984 99:98:39 UxdumBaaSteRscpci 
BGEQU 1$ vii 
3 AF Boato MOVL = #1, R? \ 
9 1 2 te é 
+ D4 00054 18: EERE Fe 
ACD isi 
a ne ; 
8 G0e0 28: COM RP. GET_VALUE : He 
Ai 8 ope Bafa pe i He 
000 : 3169 
a or : 
0$ 12 O0041 BNEQ = 4$ * 3170 
0183 $$ 90043 BRU 3S 
AE €E8 00046 4$: BLBS FOUND. : 3172 
- 0 0188 81 O0eR BRW 1, : 
08 AC DD 0006) $$: PUSHL Ey FIND -KEYWORD_ENTITY 3173 
7 CF 0 ADDL2 #8, KEYW ; 
i et 98 0 09038 BLBC «GE VALUE, 108 ; 3181 
54 EY booee CMPL © BLOCK, a8(SP) (ie 
——_ 2 13 0061 MOVAB =7(R6), RO 
OFF OR GE Gone? MULL? 4, RQ" ; 
Ae 50 EF 008A MOVAL SB(SPIEETXI, (SP) 
wa 08 BE4S DE 0006 MOVES #0, (SP), #6, 12(SP, a0CSP) 
00 6e 00079 » (SP) : 
een cE ERSTE AO SRONEETHDS5P) copy, anes Pe 
™ 85 : 3185 
OC AE 00 00 8B 90 BRB «108 
Se tt Pe ee po 
OC 12 0008D CMPL CTX, #1 : 
01 56 D1 Godse BNEG : 3187 
or AS borat MOVL 4 (SP), TOKEN a 
e.« 86 09099 ROVE — =g(RB)ECTXI, TOKEN i: 3190 
tet he ewe a00n = MOVE At, DEFAULT ; % 
10 AC o7 43 B00K7 9%: EXTZV #20, #1, @TOKEN, NEGATED * 8 
18 AE oc BC 4 10 he & 09089 108: BLBC DEFAULT. be ; un 
OOAA - L #1, EXPLI ; 
1 D0 00087 118: MOV ALUE, 128 ; 3207 
ii 3 Sa tts a cae ear aw 
08 BE46 0 12 o00¢2 MOVE =4¢R8)CCTXI, TOKEN 3310 
oc Ac Fe Mee Oe OOOCA BNEG —«-'128 : 35 
10 AE Ds dooce CCRE EXPLICIT 3214 
52 D4 OOOCE EMPL KEYWORD TYPE, #2 ; 
0051 128: CMPL f - 3215 
= ag Bh 0003 Beal 138 
01 8 D1 0000 CMPL ° 


H 16 
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1p 13 DA BEQL 15$ : 
06 57 € DC 13$:  BiBC  GET_VALUE, 148 : 3216 
08 BE46 D3 D TSTL a8 (SP)CCTXI : 321 
4 1 E BNEG 15$ : 
01 pp OOE5 14$:  PUSHL + 3219 
OC AC 9F OOOE PUSHAB TOKEN : 
00000000V EF 9 FB EA CALLS #2, GET_EXPLICIT_VALUE : 
10 aE D Fi MOVL ; FOU ; 
5 10 AE 00 OF MOVL FOUND, EXPLICIT + 3c18 
14 AE D4 0 69 15$ CLRL =—« TEMP_fOKEN : 1 
1¢ AE DS OO00FC CLRL CONTINUE : 3222 
53 10 AE €9 OFF 16$ BLBC FOUND, 21$ + 3224 
10 1C AE EB 00103 17$ BLBS CO NUE 18$ : 3227 
30 10 AE €9 00107 BLBC FOUND, 20$ : 
50 OC AC DO 0010B MOVL ‘TOKEN. RO : 3228 
SA 05 ad 08 09 FD 00108 CMPZ2V #0, #8, 5(RO), NUMBER : 
15 13 00115 BEQL : 
1¢ «AE OG 00117 18$: CLRL CONTINUE : 3230 
7E 04 OO11A CLRL = = (SP) : 3231 
Oc AC 9F 0011C PUSHAB TOKEN : 
00000000V_ EF 08 FB OO11F CALLS #2, GET _EXPLICIT_VALUE ; 
10 AE 50 DO 00126 MOVL RO, FOUND 3 
D7? (11 OO12A BRB F 3227 
0B 10 AE €9 0012C 19$:  BLBC FOUND, 20$ : ‘ 
146 AE 0C AC DO 00130 MOVL TOKEN, TEMP_TOKEN : 3236 
1 AE 01 00 001 5 MOVL #1, CONTINUE : 337 
C4 11 0139 BRB > 3234 
14 AE D5 00138 208:  TSTL TEMP_TOKEN : 3239 
BF 13 0013€ BEQL 4 ©=-:« 16 $ F 
0c Ac 14 AE 00 99140 MOVL §_TEMP_TOKEN, TOKEN : 3241 
10 AE 01 00 00145 MOVL #1, FOUND 3 gue 
09 10 AE €9 00149 BLBC FOUND, 21$ > 324 
18 AE 0c BC 01 14 EF 00140 EXTZV #20, #1, @TOKEN, NEGATED : 3248 
07 11 00154 BRB : 
04 52 €8 00156 21$:  BLBS EXPLICIT, 22$ + 3249 
10 AC 01 DO 00159 MOVL #1, DEFAULT : 3250 
OE 10 AC €9 0015D 228: BLBC DEFAULT . 25$ : 3258 
05 04 Ad 02 €0 00161 23$: BBS #2, 4(RLOCK), 24$ : 3259 
10 AE D4 00166 CLRL FOUND : 3260 
04 11 00169 BRB 25$ ; 
10 AE 1 00 0168 gus MOVL #1, FOU : 3261 
36 7 €9 16 5$ BLBC GET VALUE 30$ : 3267 
2 10 AE 4 0172 BLBC Ap, 30$ : 
20 FF AG é 176 MOVAB -1(R65, RO : 3270 
5 04 C4 OO17A MULL2 #4, RO : 
09 10 AC 8 17D LBS DEFAULT 26$ ; 
6048 SF 00181 PUSHAB (RO)CR8) : 
9E 0c AC D0 0184 MOVL TOKEN, a(SP)+ F 
11 001 BRB 29$ : 
03 ae 26$ st 98 (SP)CCTXI > 3271 
9F 001 PUSHAB (RO)CR8) : 3272 
ps 19 CLRL a(SP)+ ; 
1 0019 BRB 29$ : 
CO 00197 27% ADDL2 RS RO : 3273 
14 0019 BGTR 28$ ; 
CE 0019¢ MNEGL #1, (RO) : 3274 


16 
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yOst O00 12-808-1 3b 99:78:38 DIEKSVMGHASTERSCOCL SRCIRPCLINT.B32:1 9 49) 
02 11 0019F BRB 298 : 
§ D4 OOIA gs CLRL —-_- (RO? + 3275 
08 BEAG Bo 1A3 29S MOVL BLOCK, g8(SPCCTXI : ik 
0 6¢ 1 00148 30$ CMPB AP), # : 328 
17 16 OO1AB BLSSU _31$ : 
1¢ AC 05 1AD TSTL 8 (AP) : 
12 13 001B BEQL 1$ ; 
01 56 Di 001B CMPL crx, fi : 
0D iF 1B BNE 1$ : 
09 10 AE €9 0018 BLBC FOUND, 31$ ; 
05 10 AC £8 001BB BLBS DEFAULT, 31$ : 
1c «(BC 0¢ aC dO O18F MOVL TOKEN, @QUAL : 384 
3 b6 104 31$: INCL gTX : 
FE 1 00166 BRW $ : 3169 
33 10 AE £9 01C9 32$: BLBC —-~ FOUND, 37$ : 3292 
06 6¢ 1 001¢D CMPB ss « CAP), : 3298 
05 1F 00100 BLSSU 33$ ; 
18 «AC ODS 00102 TSTL 34 (AP) : 
21 12 0010 BNEQ 6$ : 
08 10 AC €9 00107 338 BLBC DEFAULT, 34$ : 3299 
50 000000006 &F BO 00108 MOVL #CLIS_DEFAULTED, RO + 3301 
08 oc BC 14 £1 Sores 34$: BBC #20, @TOKEN, 35$ ; 
50 000000006 &F D0 OOiEB MOVL #CLIS_NEGATED, RO + 3302 
50 000000006 8F DO 901FO 35$ MOVL  § #CLIS_PRESENT, RO + 3303 
04 0O1F/ RET : 3301 
1¢ 10 AC £9 001F8 36$:  BLBC DEFAULT, 39$ : 3308 
08 18 AE €9 OO1FC BLBC NEGATED. 38$ : 3309 
50 000000006 8F DO 90200 37$:  MOVL  &#CLIS_ABSENT, RO : 3310 
04 00207 RET : 
18 AC DD 00208 38$:  PUSHL RETDESC : 3311 
FF AG OF 00 0B PUSHAB -1(CTX) ; 
59 DD 0020E PUSHL BLOCK : 
00000000V_ EF 03 FB 00210 CALLS #5, CET _DEFAULT_VALUE é 
04 00217 RET : 3312 
18 AC DD 00218 39$: PUSHL RETDESC : 
FF A6 9F 0021B PUSHAB =1(CTX) ; 
59 DD OO21E PUSHL BLOCK : 
0c AC DD 002 0 PUSHL TOKEN ; 
00000000v_ EF 04 FB 00223 CALLS #4, GET_NEXT_VALUE : 
04 0022A RET > 3314 


; Routine Size: 555 bytes, Routine Base: DCLSZCODE + 0928 


16 
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3 4 9 13 } ROUTINE get_param_token (index, rettoken) = 
3 17 ; i$ 1 !=<- 
3; 17 18 1! 
3 4 ¢ 8 } Get the next token in the command Line which is a parameter value. 
3 Vy 1 } Inputs: 
; 1738 : e index = Address of ay pn containing previous token index. 
; He 4 ¢ : rettoken = Address of longword to receive token descriptor address 
3 1741 g 1 ! Outputs: 
3 1708 1! 
3; 174 s 3 index = Address of longword containing token index of parameter. 
; by: 2 ! rettoken = Address of longword containing token descriptor address. 
3 Ho 3 331 ! routine value = True if parameter value found, false if eol detected. 
3: 1748 3 j 1 
3 1749 34 BEGIN 
; 1750 335 
3 1751 336 BIND 
: 1736 sa? wrk = ctl$gl_dclprsown : REF BBLOCK; 
> 175 338 
3: 1754 339 LOCAL : 
3 1733 ret token: REF BBLOCK; ! Address of token descriptor 
3 Hey 4 308 token = token_desc(..index); ! Get starting token descriptor address 
3; 1759 4G WHILE (.token Cptr_v_type] NEQ ptr_k_endline) ! Get each token on the Line 
3; 1760 45 DO BEGIN ' Until the end of the Line is reached 
; 1761 3346 token = .token + ptr_c_length; ! Skip to the next token 
3 1766 tat -index = ..index + 1; ! Increment the token index 
: 1764 3349 4 IF (.token Cptr_v_type] EQL pyr k_parametr) ! If a parameter value was found 
: 1765 3350 4 AND (.token Eptr_b_level) EaQC 1) ! and it is at level one 
3: 1766 3351 4 THEN BEGIN ' then return success 
; 1767 $26 & -rettoken = .token; ! Return token 
: 1768 3535 4 RETURN true; ' and indicate found 
3 1769 354 ; END; ! 
3: 1770 355 
3; 1771 356 END; 
: HA 357 ; 
3 177 358 RETURN false; ! Indicate no parameter found 
3: 1774 359 
3; 1775 360 END; 
0000 00000 GET_PARAM_TOKEN: 
2 -@ORD ave nothing : 3315 
50 000000006 00 00 000. MOVL WRK, 3; 3342 
51 04 C 0 000 MULL3 #1 eANoEX Ri é 
0 FOAA C140 9E O000E MOVAB -1602(R1)CROJ, TOKEN : 
04 60 04 1C ED 00014 1$: CMPZV #28, #4, (TOKEN), #4 > 3344 


03 


; Routine Size: 


60 


57 bytes, 


50 
04 
01 


08 Bf 


Routine Base: 


k 16 
1e=85p-1986 19:98:38 DE SKSUMSMASTERSCDCL SRCIRPCLINT.032;1°%° (209 


18 13 19 BEQL 2 : 
oc C¢ 1B ADDL2 #12, TOKEN : 6 
04 BC D6 If INCL NOEX : 
C F CMP7V #28, #4, (TOKEN), #3 + 3349 
EC $ BNEG : 
06 AO 9 CMPB = & (TOKEN), #1 + 3350 
8 1 C BNEQ é 
D MOVL TOKEN, @RETTOKEN : 3352 
1 D MOVL #1, RO : 335 
04 000 RET : 
50 04 00036 2$: CLRL ~—s_ RO : 3358 
04 00038 | RET : 3360 


DCL$ZCODE + 0853 


BEGIN 


Pp 
token : REF BBLOCK; 
BIND 


os 


Entity context array 
Token context array 


ooo 
wn 


entity_context = Pe gn pom Cdcl_l_entity] : VECTOR, 
tl$gl_Clintown Cdcl_T_foken] : VECTOR; 


token_context = c 


$e 
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1777 61 ROUTINE get_next_value (token, entity, ctx, retdesc) = 
1708 Eb eee 
1788 ee Get the next explicit or default value in the current value List. 
178 6 ! Inputs: 
1788 85 ! 
17 68 ; token = address of the Last token examined ; 
1785 69 4 entity = address of the last entity descriptor block examined 
1786 70 ! ctx = current context Level 
4-44 4 retdesc = address of return value descriptor 
1789 ig ' Outputs: 
1790 74 ! } 
1791 75 ; retdesc is filled in 
: ; 3/8 routine value is true if value is found, else false 
1794 378 !eo= 
179 379 
1 380 
1 381 
1 $86 
1 38 
1 384 
1 385 
1 386 
1 387 
1 388 
1 g 
1 0 

1 


COON Naas 
SSs 
ONAWN 
AAAI AAIAIAIANIW NAINA ANIWIANAINAIAI ANNONA NIWA AAAI NWN 


WA 
000 
ws 
REPO ANI ERIPOPYPONONDPNDNIPINPI VEPIPINPI HPIPINPIPININPINIPINIPININPININDID) 9 2 9 OO tt ee OO OS 


38 LOCAL 
1906 3 found; ! Value found flag 
1808 39 IF .token_context C.ctx] EQL -1 ! Have we already exhausted these values? 
1993 THEN RETURN cLli$_absent; ' Yes, then return null string 
1811 IF (.token_context C.ctx] GTR 0) ! If there is an extant value context 
18l¢ 396 AND (.entity_context C.ctx + 1] GTR 0) ' and if we are backing up a level 
a $05 THEN token_context C.ctxJ = 0; ! Then get the first value 
1815 399 IF .token context C.ctx] EQL 0 ! Is there an extant value context? 
1816 400 THEN IF (found = get_explicit_value (token, 1)) ! No, then find the first value 
1817 401 THEN token_context C.ctx] = .token ! and save it’s location as context 
1818 108 ELSE IF .token fptrav negate ' Not found, was the previous keyword negate 
1819 40 THEN RETURN’ cli$_absent ' Yes, then return absent 
1330 404 ELSE RETURN get_default_value ' No, return default value 
\s 1 ret (.entity,.ctx,.retdesc); : 
1858 3209 token = .token_context C.ctx]; ' Set the value context 
18se rt get_specified_value (.token, .retdesc); ! Get the qualifier value 
1826 410 IF found = get_explicit_value (token, 0) ! Is there a next value? 
1827 411 THEN token_context C.ctx] = .token ' Yes, then set the mew context 
1828 ai¢ ELSE BEGIN ! No, 
iSep 41 token_context C.ctx] = -1; ! Then invalidate the context 
133 ret found = true; But return that the current value was foun 
183¢ 416 : ‘ 
183 41 zero_context_arrays (.ctx + 1); ! Zero the context past this point 


mM 16 
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3s 3 4 
3} 33 3 
3; 1836 4 


1 
i§ ; RETURN . found; UR j 
20 END; eturn generic status 


OFFC 00000 GET_NEXT VALUE: 


WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 1 
SB 99000000y FF 9 99002 MOVAB GET _EXPLICIT R14 : ans 
29 000 0006 0 p 990 OVL CTLSGL_CL INTOWN, rb + 3386 
40 AO 9E 00010 MOVAB 64(RO)> R : 
59 5¢ AO 3 0014 MOVAB 92(RO), RO : 3387 
Sh 0¢ ac D 0001 MOVL (CTX, R6 : 3392 
52 6946 DE 0001C MOVAL (ROSCR6], R2 : 
FEFFFFFE 6 8F 62 01 999 0 CMPL (R2), #1 : 
2 13 0027 BEQL 46 3$ : 
62 D5 00029 TSTL (R2) + 3395 
08 15 00028 BLEQ ~=«:'1$ : 
04 A346 D5 00020 TSTL  4(R3)CR6I : 33% 
02 15 00031 BLEG ~=s«1$ : 
62 D4 00033 CLRL —-_ (R2) : 3397 
62 05 00035 1$: TSTL (R2) ; 3399 
31 12 00037 BNEG 5$ : 
01 DD 00039 PUSHL #1 + 3400 
04 AC 9F 0003B PUSHAB TOKEN : 
6B 02 FB 00055 CALLS a2. GET_EXPLICIT_VALUE ; 
58 50 00 0004 MOVL RO, FOUN : 
06 58 £9 00044 BLBC FOUND, 2 : 
62 04 AC 00 00047 MOVL TOKEN. (R2) : 3401 
1D 11 00048 BRB : 
08 04 BC 14 £1 00040 2$: BBC #2C “TOKEN, 4$ t 3402 
50 000000006 8F DO 00052 $: MOVL &#CL “_ABSENT, RO + 3404 
04 0005 RET : 
10 AC DD 0005A 4$ PUSHL RETDESC : 3405 
56 DD 00050 PUSHL R6 ; 
08 AC DD 0005F PUSHL ENTITY : 
00000000v_ EF 03 FB 90062 CALLS #3, GET_DEFAULT_VALUE F 
04 9069 RET : 3404 
04 AC 62 DO 0006A 5S: MOVL (R2), TOKEN : 3407 
10 AC DD O06 PUSHL RETDESC : 3408 
04 aC DD 000 PUSHL KEN : 
00000000V_ EF 02 FB 0074 CALLS #2, GET_SPECIFIED_VALUE : 
E p4 7B CLRL —s._« = ( §P) : 3410 
06 AC OF 0 7D PUSHAB TOKEN : 
68 98 F 80 CALLS #2, GET EXPLICIT_VALUE : 
5 50 D MOVL RO, FOUND : 
0 58 €9 000 BLBC FOUND, 6$ : 
4 04 AC 00 000 MOVL ‘TOKEN, (R2) > 3411 
6 11 000 BRB 7$ ; 
62 1 CE O008F 68: MNEGL #1, (R2) > 3413 
1 38 MOVL #1, FOUND ; 3414 
0 FA Ab : 95 7%: MOV -6(R6), RO : 3417 
0 94 C 99 MULL2 #4, RO : 
0 CE 9 9C MNEGL RO, R : 
SA 04 A346 DE 0009F MOVAL 4(R3)CR6], R10 : 


6€ 


5A 
6E 


50 


Routine Base: 


1 Bliss-32 V4.0-7 
VMSMASTER: (DCL. She RPCLINT.B32; fa9 


<z 


#0, (SP), #0, R7, (R10) 


4(R9)CR6], R10 
, (SP), #0, R7, (R10) 


DCLSZCODE + UB8C 


1 
a 80 1$-sep-1964 19:98: 3g  PIKSUmGHASTERSCBCL SRCIRPCLINT.832:1° 9" (295 


ROUTINE get_explicit_value (token, level) = 


<n 


Get the next explicit value in the current value List. 
Inputs: 


i 

i 

i 

i 

i 

! token = address of address of the Last token examined 
level = flag, if present, get first value at the next level 
1 

i 

i 

i 

i 


Outputs: 


token and level are updated 
routine value = True if found, else false 


og = ..token; 
F ,level EQL 0 
THEN Level = .ptr Cptr_b_levell 
ELSE BEGIN 
IF sper Cptr_v_term] NEQ ptr_k_colon 


Get address of last token examined 
next value is at current Level 
pes get that level from the token desc 


S238 8 AS SR SS A BA AR 


se 
Verify that previous token ends with a colon 
Return no more values if not 


EN RETURN cLi$_absent; 
Indiate that we want a more deeply nested value 


level = .ptr Cptr_b_level] + 1; 
END; 


& 


SSIS EUN—OO 


t 
: Get the next value in the List. 


> | 


WHILE (ptr Cptr_v_type] NEQ ptr_k_endline) While there are more tokens left to examine 


ptr = .ptr + ptr_c_length; 


IF pir tote b Lovet LSSU .level 
THEN RET w 


Scan for the next value 
Get the next token 


= If it is shallower than the value we want 
URN” cli$_absent; Then return not found 
IF “ptr Fotr_p_level) EQL .level If it is the level we want 

EN IF (, Then if not mistaking a qualifier for a 


SEEEEE 


ee me ee me a ka ak a ek et ek at tk a at a a ts a as SS 4 Ls 4 YY 


Bo Se Se Se Se Se Se Se Se Ss Se Se BH Se Se BF Ss Ge Ge SH Se FHT Se Ge Se Se SF Ss Ge Se FH Se Se SF Se SF 5 S+ SS Gi Ge Se Se Se Se oe Ge See Sees Se Se esee 


q 
: Paes wee 7 - ] EQL ptr_k tr) t l 
-ptr rv e r arametr) ! parameter value 
THEN EXITLOOP: ~ sie ect ! Then exit the loop 
END; 
' 

30 i if end of line, then return not found. 

9 75 2 IF .ptr Cotr_v_type) EQL ptr_k_endline ' If EOL 

1, : ifen R TURN"c14$_ absent; lh ! Then return not found 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
Loc 
ptr : REF BBLOCK; 
i] 
: If starting a new value level, then set the level value and check that 
; the previous terminator is and equal sign (KEYWORD=). 


ibesenct94s 99:78:38 OEE dUwGmaSTenscoce secSnpcumms.us2:1°%* (255 


If we've gotten this far, then we've fourd a value. Return it. 
Also, set the success status according to the type of terminator that 
immediately preceeds she value. 


; token = ptr; 


3 


Sesesseeeee iF 
SeSSSSSSs33 33 


Return pointer to token desc 


ad 2 nd PD 


' 
4 RF = .ptr - ptric_ ; i Back e descript 
5 TF ptt RETR pt taral’ eet ptr kplus i if previous wu. rs 
4 THEN RETURN oehte concat i then return plus or comma 
ri w see beri v- “et 18 comma?" k.comma depending on the terminator 
r ELSE RETURN true: i Return no previous value 
91. 1 END: 
0000 00000 GET EXPLICIT VALUE: 
-WORB Save nothing : 3421 
50 4 BC a8 888 0002 hove aTOKEN, PTR ; 344 
8 ac TSTL LEVEL > 344 
0 80 BNES : 
08 Ac 04 =A 00 MOVZBL 4(PTR), LEVEL + 3448 
1 7 001 BRB 2$ : 
08 ac 04 AO 9A OOOIA MOVZGi 4(PTR), LEVEL > 3452 
08 AC D6 O0001F INCL oL 3 
04 60 04 1 FD 09 3 2$ CMP ZV #28, #4, (PTR), #4 : 3458 
50 $e CO 00029 ADDL2 #12, P : 3460 
08 ac 04 a0 08 99 FD 90 CMP ZV #0, #8. RL CPTR). LEVEL : 3462 
08 Ac 04 Ad 08 00 ff 90 > CRPZV #0, #8, 4(PTR), LEVEL + 3465 
01 08 AC D1 000 CMPL VEL, #1 + 3466 
07 12 4 BNEQ : 
03 60 04 ic FD a4 CMPZV #28, #4, (PTR), #3 : 3467 
04 60 04 1c & 48 3$ CHPZV #28, #4, (PIR), 4 . : 3475 
50 000000006 BF i 4$ ROVL #CLIS_ABSENT, RO > 3476 
04 a 0 00 A 5S MOVL PTR, @TOKEN : 3483 
C . SUBL2 oP 3 ABs 
04 03 a0 04 3 } cMP2V #0, #4, 3(PTR), #4 : 3485 
50 000000006 BF pO 9 MOVL —ACLIS_CONCAT. RO : 3487 
05 03 AO 04 0 F nt 6$ CMPZV #0, #4, 3(PTR), #5 ; 
7 BNEQ 80 7$ ; 
50 00000000G 8F $ neve #CLIS_COMMA, RO : 3488 
1 7$ v #1, R > 3489 
50 0 0 move 0 : 3037 


am 


voLsO00 ifoseo-t9ge 99:98:38 DTScbunGhaSteRscbce sacSepcuint.032:1°%° (285 


; Routine Size: 133 bytes, Routine Base: DCLSZCODE + 0C45 


vw 
co 
rr 
Ss 
— 


2 


a a ee a i ey 


NAAN OOONOULS WIN O 


MEW 


=o 5 3 4 8 Wh 4 


NAA WIN SO OONAUS WN 


<3 


~o 
PRIRELELEREREE 
PUFUSUSVSUSSUSSUSUSUSUSUSUSUSUSISU SIS SSIS 
WEIRD 


DO0O0O0 


nS 


Wwn—& 


ee et ee ee ee a ee me ee OO et et me a ad a a a ad a ad od od st od “a ts = = — 2 Ls — = 1 


SEPELEESS 
SESzrEEES 


K-11 Bliss-32_V4.0- 
SKSVMGMASTERSCDCL SRCSRPCLINT .B32:1°7 (29> 


-Sep-1984 VA 
Igoseont9ge 00:26:46 tek 
ROUTINE get_specified_value (token, retdesc) = 
Get the value (possibly extending down several levels) that begi 
with the specified tok ken ~ a a seis rly tne 
i Inputs: 


t 

1 

t 

| 

7 

! 

' token = Address of the first token in the value 
retdesc = Address of the descriptor to return the result in 
t 
i] 
q 
t 
1 


i Outputs: 


retdesc is updated 
routine value = always true 


popeess 3 REF BBLOCK, 
token : REF BBLOCK; 


BIND 
wrk = ctl$gl_dclprsown : REF BBLOCK; 


Number of ape A in value 
Parenthesis co 
Pointer to Bs may after the value 


338 
be Te 
Me 


parens 
ptr : REF BBLOCK; 


‘ 
Initialize the local variables. 


parens = 0; 
count = 1; 

ptr = .token + ptr_c_length; 
i 

: Get all value tokens in the command that are part of this value. 

OHILE ag e Cotr 5° typed NEQ ptr_k ond} ine) AND ! While there -ore still tokens on the Line 


ptr_B_level)] GTR .foken Cptr_b_level])) i and q they or part of the current value 
dO BEGIN. he total variables 
LOCAL i ae 


Set no porenthest> seen 
Start with one token 
Point to a, token 


4 
: If token is preceeded by a ‘("', then increment the paren count. 


it CHSRCHAR (.ptr Cptr_v_offset] + wrk Curk_g_buffer] - 1) EQL 2C°C" 
THEN parens = .parens + 1; 


f token is terminated by ")'’s, then decrement the paren count 
porepr tet ely. 


CE (CHSRCHAR (.ptr Cptr_v_offset) + wrk Cwrk_g_buffer) 


ze 


— 


5 
é i 


Se Ge Ge Ge Ge Oe Ge SO Se Ge Ge Se Se Ge Se Ge Ge Sse Se Ge Ge Se Ge Geese 
nn a 8 8 Lh HS 8 8 4 
S8sSseesseessssesseess 
NOOO wn _ SarNourun—o 


ifeseo-t9ue 00:26:56 WAIT atisee a2 


ay Ss el Cptr_b_value] + .index) EQL %C')") 
. index; 


DO index = .inde 
parens = .parens - 


4 
; Update the Last token pointer and the token count. 


ptr = .ptr + cunt sft Length; 
count = .coun 
END; 


' 
: Strip off the terminator if appropriate and return the value that we found. 


retdesc ys pointer) = .token Cptr_v_offset] + wrk Cwrk_g_bufferd; 
then" retdeee Cdsc$w_length) = .token Cptr_b_value] 
vetdesc Cdsc$w ~tengtna perk Cptr te yaotfset - token Cptr_v_offset); 


iF rivit 
ifen etree Lascsy-te ngthl “3 me retdesc césedy.t Length] - 1; 
roscees Cdsc$w_length -retdesc Cdsc$w_length] + .parens; 


SAINI SS SASSER CS SSS 


WAM 


RETURN true; 
END; 


OOFC 00000 GET afte ee as 


«WORD Save R2. R3,R4,R5,R6,R7 
56 D4 00002 CLRL Saxens 
7 01 09 Ove #1, C¢ 
4 06 Ac p MOVL TOKEN 
0 OC AG : MOV 12(R45, ute 
55 000000006 00000B6E 8F C SUBL3  # 42926, WR RS 
04 60 ic E CMPZV ha, CéTR), 
BEQL 
04 Ab 04 AO 9 CMPB 0-s«& (PTR), 4(R4) 
18 SLEQU 
51 01 ag c EF EXTZv #0, #12, 1(PTR), R1 
5 1 ADDLS RS. RI, R 
8 fF OA CMPB 0s =1 (2); #40 
BNEQ 28 
D INCL PARENS 
CLAL NDEX 
i A ROVZBL (PTR) « R1 
9 634 i} Pe Efiogwce13, #41 
5 p INCL NDEX 
BRB $ 
56 C SUBL2 NDEX PARENS 
¢ ¢ ADDL2 #2, PTR 
D INCL COUN 


OSRCIRPCLINT.B32;1° 31 


9° 285 


voc od 1foseo- 1944 99:98:38 isk SVMEMAS TERSCDCL SRCIRPCLINT. 832; ° 928 


C4 (1 BRB 1$ : 353 
es ee ae oe bo 
j CMPL QUNT, “#1 ; 3564 

5 BNEQ é : 

61 4 F 1 an (R1) ; 3565 
ee ee) ee ee ie 
04 60 4 i i CMPZV 26, #4, (PTR), #6 ; 3568 

8 DECW. © (R1) > 3569 

h 6B Bee: de iy a BR 

4 F RET 3 3574 


; Routine Size: 144 bytes, Routine Base: DCLSZCODE + OCCA 


1 
tbs 1984 00:26: VAX=-11 Bliss-32 V4.0-74 P 
v04 1 ~$30-1 382 99:48:39 DLSKSVMGMASTERSCDCL SRCIRPCLINT.B32:1°7° (aes 
ROUTINE get_default_value (entity, ctx, retdesc) = 


NOU 


Get the default value associated with the specified entity. 
Inputs: 


i 

i 

' 

' 

1 

' entity = Address of an entity deecriptor block 
: ctx = Context level of last entit 

i] 

i 
i 
i 
te 


Wn 


e 
retdesc = Address of a string deszriptor to return the result in 
Outputs: 
retdesc is returned as described above 


w 


BEGIN 


entity : REF BBLOCK, 
retdesc : REF BBLOCK; 


BIND 
wrk = ctl$gl_dclprsown : REF BBLOCK, 
entity_context = ce eset .e) intown dcl_lentity] : VECTOR, 
token_context = ctl$gl_Clintown Cdcl_T_foken] : VECTOR; 


LOCAL 


ound, 
string : BBLOCK Cdsc$c_s 
value : REF VECTOR C,BYTE 


! Address of command work area 
! Entity context array 
! Token context array 


SSLSSRENZ 


5 


UU 


! Value found flag 
pind. ' Local descriptor for value 
3 ! Address of ASCIC value 


' 
: Initialize the default value buffer 


Ctl$gl_clintown Cdcl_w_deflen] = 0; ! Clear default value buffer 
1 


i If there is a default value associated with the entity, and we have not 
: returned it before, then return it now. 


IF gontity fent w.defval] NEQ 0 
THEN IF (.entity_context C.ctx) EQL sentity? 
etoken_context C.ctx] EQL -1) 

THEN RETURN cLi$_absent 

ELSE BEGIN 
value = ,entity + cent ity Cent_w 8 fval) + 1; 
retdesc fdsc$u_Length = .value f 3 
retdesc [dsc$a_pointer] = value (1); 
token context EC.ctx]) = <1; 
RETURR true; 


NOUSWN 


! If default value 
Then, if returned before 


! Then return not found 

' Else return the value 

! Get address of ASCIC string 
' Get default value 


i Do not return again 
' Return found 


PAE WN 


onger have a default value. 


PIPPI HELIO IPORIPIPIPIPIPINIPIPIMNINIPIPIPIPIPIPIPININNINIIII) a8 at at tt ot tt tt 
. 
incitebemnneinenetennasitannas — _—— 


Be Se Be Se Se Se Se Ce Se Se Se Se Se Se Ge SF Ge Ge Ge Se Ge Se Ge Be Se Ge Se Ge SO Se Os Ge Ge FHSS Ge Ge Ge Gs Ge Ge Ss Se SF Se Se Se Se Oe SF Se Sees SE Se bees 


t 
if there is no keyword list associated with the entity. Than it can no 
‘ 


sa 


Be Se Se Se Se Se Se Se Ge Se Ge So Se Se Se Ge SF Ge Ge Se SF Ge Ge Se BF Ge Ge SF Se Se SE Ss Se SESS Se Se Se Se SF Se Se Ss Ge Se Se Se Ss Se Se SSeS Se eseses 


fern 
DOONAN 


== REESE SE 


POP One 


Se SSIS SpE ig eae emaunnrisicean reieie ns c8  aanRe anagnag NICER ie 


: : : 5 oe FOQAACc > 
PAE WAN OO ODNA NEW SO OONAN SUM — 


53a~ 


DDD DDD SDD DDD IO NNN HG 


IF .entit 
THEN RET 


; 
ctx = 


Cent t Q 
URN etre sbscnee spend 


i If we have a previous keyword context, then use it. 


iF ( vent tye context C.ctx) GTR 0) 


(.entity context C.ctx + 1] EQL 0) 


— tie tit — . c. ]; 
en = .en C er ctx 
IF sentity Cent tne rat 


he ae 
etee — ty 4 pe: ent_l_next] 
+ .wek Cork l_tab_vecd; 


END 
ELSE BEGIN 


ent 
ent 


zero_contex 


i Find the 
; default v 


- = cli 
ILE (.ent 
BEGIN 

IF soos 


ity = cont ityCent l user -s7pe] + .wekCwrk_l_tab are 


ity = .entity ent_T_nex ewrk Cwrk_l_tab_vec 


t_arrays (.ctx + 1); 


next keyword that is present by default. 
alue that may be associated with it. 


eat D 


ty fe Cent_v_deftrue] 


F . found 
THEN RETURN wy be comma 
ELSE found = true; 


value = .entit 
token_context 
entity_context ts ee = ‘entity; 


IF c.gaefe Cent_l_user_type] NEQ 0) 
Cant ty” ~tgue _W “defvall NEQ 0) 


THEN BéeiN 
string Fdschu_lengthd, value £03: 
insert et “Ceering): eset =~ 
insert _next avert tity); 
CHSMOVE ( 
stb. 7 ‘teen’ del -¥deflen], .retdesc); 


tT Cent_w_name); 


ELSE 8 
vee di dsc$w_length] = .value 3 
rerdese bgscéy- “pointer? = volue £93: 


f no keyword List 
eturn no value 


1Eseoctags Q0:28:94  YMcdTaBhlatek2 V2 RPCLINT.B32;1° 7" (26) 
7 


boyy context level 

f we have a previous context 
' but are ef backing up a level 
! Then use 

' Get last keyword returned 

! If no more keywords 

!' Then return no value 

, Slee point to next 


Else start with first keyword 
Skip list header 


i Zero the context arrays from this point 


Return it and any 


Assume no value will be found 
Loop will be exited by EXITLOOP 


If keyword is present by default 
Then return it 


If a value was already found 
Then return ‘‘another value’’ status 
Else mark value found 


Get address of ASCIC string 
Mark entity defaulted 


If keyword can have 
a default value 
Then process it 

Get keyword name 


Insert keyword into buffer 


Insert its def val into buffer 
Get the result 


Else simply return the keyword 
Get keyword name 


Kk 1 
RPCLINT -$ep-1984 00:26: VAX-11 Bliss-32 V4.0-74 P 7 
v0s VeaSeen FES 3:98: sg Pelee Re hte sceSepcuiwr.a32:4°8* cons 
: 21 IF .entity Cent t) EQL 0 ' k 
: §; THEN RETURN tun: : ier settee cheek 
3 1 gas ity = .entity Cent_l_next) + .wrk Cwrk_l_tab_vecd; ! Get next keyword 
: 211 
3 11 34 RETURN true; 
> 2114 5 71 END; 
—_——— weet cottage ay R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 3575 
i 000000006 5 0 OVA RK, Res trot Sigs tS ees chagn : 
i 000099 06 D MOVL cTcsaL CLINTOWN, R9 : 3599 
084 C9 B4 CLRW 33(R9T : 3610 
52 D MOVL NTITY, R2 + 3616 
1C hs 8 TSTW e5ihe) F 
3 BEQL $ : 
59 08 ac D MOVL TX, R + 3617 
40 A94 Di CMPL 4(R9)CROI, R2 : 
98 BNEQ % $ 
FFFFFFFF © 8F 5c A940 D CMPL (RODCROJ, #1 : 3618 
i 1 AD Se 16 BovouL 38(R2), RI > 3621 
se 01 azn’ cs ; MOVAB 1(R2)CR1J, VALUE ; 
1 0c aC p MOVL RETDESC, R1 3 3622 
61 66 9B MOVZBW (VALUE) (R1) ; 
04 Al 01 Ab 9E MOVAB 1(R6), 4(R1) : 3623 
C A940 000) cE MNEGL ", 93(R9) CROJ 3 3624 
10 A2 03 2s TSTL 1g¢R2) : 36 3 
1D 1 BEQL $ ; 
0 AC D INCL (CTX : 3638 
57 AC D MOVL (CTX, R7 : 3639 
50 40 avs? MOVE —G4CRODERTI. RO 3 
44 A967 0 Ist gB noo cn73 ; 3640 
04 Ac 50 D MOVL RO, ENTITY ; 3642 
aa * Tart iho) 
50 000000006 SF B60 3$: MOVL  #CLIS_ABSENT, RO + 3644 
51 68 D 68: HOV, WRK, I ; 3646 
06 ac 08 A0 DE A tt : ADDL3 age iRt), 8(RO), ENTITY ; 
15 BRB 6 ; 3639 
5 6 00 58 MOVL. WRK, RO : 3649 
04 ac 10 A? p ao ¢ ADDL3 -34(RO), 16(R2), ENTITY ; 
5 4 A BO MOVL. ENTITY, RI ; 3650 
04 Ac 08 Al DE ag ADDL3 -34(ROS, «RID, ENTITY ; 
: FA OA 5 68: ROVAR . m3 R ; 3652 
¢ MNEGL RO. R : 
A 44 oid oF v RB tRSSERT), R10 : 


1 
yoseO00 1$-Se0-1984 93598588 WE bUwBhASTERs cee secIPcuinT.032:1°%* can} 


58 00 6E 2c ‘ mMovcS #0, (SP), #0, RB, (R10) : 
SA 60 A9 € 0008 MOVAL  96(R9)CR7J, R10 : 
58 00 rT 0 BF Bb movcS #0, (SP), #0, RB, (R10) : 
5A 000000006 F D B MOVL  A*CLI$ ABSENT, FOUND : 658 
8 4 5 p : 7$: novi ee R : 365 
oe Bi ES BBB Bc ih Me 8 : Hel 
g 000000006 &F 66 Ds MOVL #CLIS_COMMA, RO ; 665 
A 01 pd DB 8$: MOV #1, FOUND ; 366 
6 16 =A D MOVZWL 22(R8), VALUE 3 366 
6 5 6 E ADDL2. R VALUE ; 
SC A947 DO E CLRL 92¢R9)ER7I : 3669 
40 A947 53 p0 E MOVL  R8, 64(R9)CR7) 3 3670 
1 A6 E MOVAB 1(R6), RO : 3676 
C AC OD f MOVL R TDESC, R2 ; 680 
10 ns D F TSTL  16(R8) : 36 
05 (1 F BNEQ 5 
1C ag 8 FB ST RB) ; 3673 
6E 6 98 100 9$: MOVZBW (VALUE), STRING + 3675 
04 AE DO 001 MOVL RO, STRING+4 : 367 
: DD 001 PUSHL SP 3 367 
00000000V_ EF FB 001 CALLS #1, INSERT_STRING ; 
8 DD 0011 PUSHL R8 : 3678 
00000000 EF 1 FB 0011 CALLS #1, INSERT_NEXT_LEVEL ; 
0 000000006 0 oi) MOVL. CTLS : CLIRTOUN RO + 3680 
62 0084 (CO : moves #8, 2(RO), (R2) - 
6 6 98 001 10$: MOVZBW (VALUE), (R2) F o58 
06 A DO 00128 MOVL RO, 4(R2) : 36 
08 A p 12f 11$: = ‘TSTL B(R8) 3 3689 
04 132 BNE 2$ : 
50 A po 4 MOV FOUND, RO ; 3690 
50 “a 00 138 128 MOVL. WRK, RO : 3691 
06 ac 08 A8 DE Ag 5 13 ADDLS OE 8(R8), ENTITY ene 
50 Bi Bd 144 13$:  MOVL #1, RO : 3680 
4 00147 RET : 3695 


3; Routine Size: 328 bytes, Routine Base: DCLSZCODE + ODSA 


n 1 
yoscO00 1e-8Eb= 4882 P3:48i8s | Mak SAlS FER hee SRC Spcuiwr.03221°%" «25s 


; 118 3 } ROUTINE insert_next_level (entity) = 

; 118 8 I i 

3 211 1! Put the next level of default values associated with the specified 

3 ; . : entity into the default value buffer. 

; i : f : i i Inputs: 

: , ¢ ¢ ! | entity = Address of an entity descriptor block 

: ; 8 f : Outputs: 

: i 8 f The default value buffer is updated. 

: 21 at - 

; ; 1 a, BEGIN 

3; 21 j Fig 5 map 

3; 21 714 entity : REF BBLOCK; 

3; 2135 715 

3; 21 a | BIND : 

3 138 at wrk = ctl$gl_dclprsown : REF BBLOCK; ! Address of command work area 
3 21 71 A 

3 2140 720 = first. ! First value found flag 

3 2141 721 string : BBLOCK Cdsc$c_s bind, ' Local descriptor for value 
: i ; value : REF VECTOR C,BYTEI; ! Address of ASCIC value 

3 2146 724 2! 

3 rs i 5 : If there is a default value associated with the entity, then return it now. 

: 149 7 ; If .entity Cent_w.defval) NEQ 0 ! If cefault value 

3 3 7 THEN BEGIN 

3 214 7 insert_char (ZC*'="); ! Insert an equals sign 

: 130 730 value = .entity + .entity Cent_w defval] + 1; ! Get address of ASCIC string 
3 2151 731 string dsc$u. Length) = .value £9 3 ! Get default value 

3 136 7 ¢ strin CecSe_goinver} = value (1); 

3 21 7 insert_string (string); ! Insert the default value 
: ; : g : A true; ! Return found 

i 21 7 ‘ 

3: 21 7 $ 

3 136 7 ! If there is no keyword List associated with the entity. Than it can no 

3 1% a : longer have a default value. 

> 2161 741 2 IF .entity Cent_lt_user_type) EQL 0 ! If no keyword List 

3 16¢ re THEN RETURN Talse; ' Return no value 

i 21 744 2! 

3 165 mm? : Get the address of the first keyword. Set the first value flag. 

: 18? a9 entity = .entity [ent_l_user_type] + .wrk furk l_tab_vec); ! Start with first keyword 
: 168 74 entity = .entity Cent=l“next] + .wek Cwek_l_tab_vecJ; ! Skip List header 

3 1g 74 first = true; 

: it 73 ' 

: 2172 752 i Find each keyword that is present by default. Insert it and any default 


SES 


a es wt a ss as 8 — a a Ls 9 1 2 ts 4 


MIS SSLESRANLSSELEALAT SIS ARS 


>_> >>| 


PAELLA IIVIVT 
WN OOONAUSwW 


SNS 


LSS 


' 
i 
WHI 


3 
F 


LE 
DO BEG 
IF 


If NOT . 
THEN . char (%C°)"); 


_ true; 


iSoseo-t9gs 00:26:46 


value that may be associated with it. 
(.entity NEQ 0) 
oortey font. videftrue] 


If .firs 
THEN. 5 GIN 
first = fals 
insert_char “Che's at 
insert. char (%C°(") 
ELSE neert ochar (z¢° tne 
value = .en uy A sont ity Cent panes: 
string bqscew ength - value “fo f 
string Cdsc$a_poin er). = value 3 


insert_str " “(str tng): 
angers. “next_level (.entity); 


IF eb ft L_next] EQL 0 
st ty = entity” Cent_l_next) + .wrk Cwrk_l_tab_vecd; 


TLOOP ;~ 


OOFC 00000 INSERT_NEXT LEVE; : 


Save R 


VAX- t Bliss-32 V4.0-7 rx 
DISKSVMSMASTER: (DCL. SRC JRPCLINT.832; 


! Loop will be exited by EXITLOOP 


! if yg is _present by default 
! Then insert 
! If first 2 A. 


! Clear the flag 
! Insert an equals sign 
! Insert an open parenthesis 


' Else insert ac 
! Get address of ASCIC string 
! Get keyword name 


! Insert keyword into buffer 
! Insert its def val into buffer 


! If no more keywords 
! Then done 
! Get next keyword 


If we have an open paren 
Then match it 


oR3,R4,R5,R6,R7 


7 000000006 00 9€ MO WRK 
: 00 0 v EF 3 MOVAB INSERT_STRING, R6 
0 v FF MOV iN ERT“CHAR, RS 
: 8 ¢ SUBL2 #8, SP™ 
4 AC D MOVL NTITY, R2 
¢ a ' TSTW R2) 
D BEQL 
D PUSHL @# 
5 1 CALLS #1, INSERT_CHAR 
0 1c OA MOVEL B(Re) RO 
4 01 A24 V (R2) CROJ, VALUE 
bE MOVZ7BW (V LUE) STRIN 
04 AE 01 AG v 1iR4), STRING+ 
: D PUSHL SP 
66 F CALLS #1, INSERT_STRING 
F 1 BRB 7$ 
10 A ; TSTL i 
5 g) Govt GRE. AO 
10 3 bE AO C ADDL wit tR). 16(R2), ENTITY 


age otf 


3696 


Pete Se Ge Se Ge Se Se Ge Se Ge Se Gee Se Ge Se See te te 
Ww 
~ 
Ww 
Oo 


2 
RPCLINT 16-5e 1984 126: VAX-11 Bliss-32 V4.0-74 Page 74 
v04 1 at 7 99:48:39 DLEKSVMGMASTERSCDCL SRCIRPCLINT.03251 ° (253 
51 04 ac D MOVL TITY, R : 3748 
046 Ac 08 A DE Ab C 3 ADDL OO CROS bert), ENTITY : . 

2 01 »D A MOVL 1, FIRST : 3749 
04 At p D 2$: OVE NTITY, R2 + 3755 
2€ 04 A2 E BBC (RQ), rt) + 3757 
08 E BLBC =-sFIAST, 3$ : 3759 
D4 CLRL T : 3761 
D OD D PUSHL 1 ; 3762 

65 1 FB F CALLS #1, INSERT_CHAR : 
8 bb 2 PUSHL #46 : 3763 

1 00074 BRB 4$ : 
C OD 16 3$: PUSHL @# + 3765 

5 £8 78 4$: CALLS # INSERT CHAR : 
4 16 =A ¢ 7B MOVZWL 22(R2), VACUE : 3766 

4 5 Or ADDL2 Re, VA : 
6E 64 «9B : MOVZBW (VALUE), STRING + 3767 
04 AE 01 AG 9E 96 MOVAB 1(R4), STRING+4 : 3768 
SE DD A PUSHL : 3769 

66 1 FB 00 ac CALLS #1, INSERT_STRING F 
? DD F PUSHL é + 3770 

FFOA CF F 91 CALLS #1, _INSERT_NEXT_LEVEL ; 
08 A2 D 096 5$: TSTL 8(¢R2) : 3773 

OC 13 000 BEQL ; 
5 67 00 0009B MOVL. WRK, RO : 3775 

04 ac 08 A DE AO C1 0009 ADDL3 =34(RO), 8(R2), ENTITY : 
: 11 OOOA BRB : 3755 
05 E8 OOOA7 6$: BLBS FIRST, 7$ : 3778 
DD OOOAA -  PUSHL : 3779 

5 1 FB OOAC CALLS #1, INSERT_CHAR : 
0 1 p OOAF 7$: MOVL #1. RO : 3781 

4 0008 RET : 
50 D4 00083 8$: CLRL = RO : 3782 

04 0008 RET : 


; Routine Size: 182 bytes, Routine Base: DCLS$ZCODE + OEA2 


e 


ROUTINE insert string (string) = 


4 

Insert the specified string into the defalut value buffer. 
i Inputs: 

string = Address of the string descriptor of the value to insert 


i 

1 

i 

; Outputs: 
i 

ie 


pp 
<Oco 


oO 
Wn 


the default value buffer is modified as described above 


SAAN 


CNAULS WN OOOO wn 
Ss. SSO0 
=PIPINIPOPINININIPINIPIPINIPIPIPUPINPIPIPIPUPINIIY 9 a ts 


BEGIN 


string : REF BBLOCK; 


BIND 
retdesc = gt tSgt clintown Cdcl_wdeflen] : BBLOCK, 
size = ctl$gl_clintown Cdcl_w_Buflen] : WORD; 


NNN ne CLOSES. 
iw 


RIPINONONIPIPINIPONOPOPOPOPONPo POR 
SOVEAEU— 
0.090909 00 00 09 09 09 CO CD 0D 0D 


' 
: If default buffer cannot fit string, then increase its size. 


t 
: Insert the string. 


CHSMOVE C.etring Késcdu. length). sotring CdecSa_peingerd. ! Insert the string 
re 
j 


Be Se Se Ge Ge Ge SO Se Se Ge oe Se SS Ss Se Se Ge Ge OO Se Se SF Se Se Ge Se Se SH Se Se Ge SH SE Se Se SE Se Se be me 


. esc (Cdsc$a_pointer -retdesc [dsc$w_length]); 
retdesc Cdsc$w_length] = .retdesc EgscSu_tength ! Update the Length 
40 + .string Cdsc$w_length); 
re. RETURN true; 
tg END; 
OOFC 00000 INSERT_STRING: 
eWORD Save R2,R3,R4,R5,R6,R7 
9 000000006 00 p0 0000 MOVE §— FTLSG ELINTOWN, RO 
4 ¢ E MOVAB 32(RO), R7 
9 D C MOVZWL 141(RO), RO 
MOVZ2WL (R77), RI 
é 04 ie 5 move mate RE 
50 66 6 D 0001 CMPZV #9, ne (R6), RO 
A i168 BLEQU 1 
7E 6 C MOVZWL (R6), -(SP) 
00000000v_ EF FB 7 CALLS #1, ALLOCATE_DEFAULT_BUFFER 


——— 


y$-sen-1964 00:26:56 VaNGIT aLiseca2 veioc74g |. page 


! Default value string descriptor 
! Default value buffer size 


if (.size - -retdesc(dsc$w_length]) LSSU .string Cdsc$w_length] ! If not enough space in the buffer 
THEN allocate _default_buffer (.string tdsc$w_length]); ! Then increase its size 


783 
804 


3810 


3811 


<2 


Voseb00 18-60-1984 93:98:89 HaeeblnGAAS FERS chee sheSepcuint.e32s1°%* cass 
re) eee a 

ee 7. H me fh. a we 

3 1 p 0030 MOVL #1, RO ; 3820 

% 00040 RET : 3822 


; Routine Size: 65 bytes, Routine Base: DCLSZCODE + OF58 


2 
vos"000 ieseortage POS:88 — piScbumsnaStenscbetcsncSrectiwt.e32;1°%* 27) 
ROUTINE insert char (char) = 


Insert the specified character into the defalut value buffer. 
: Inputs: 

: char = The value of the character to insert 

: Outputs: 

: the default value buffer is modified as described above 


<z 


DOONAN OODONOW 


BEGIN 


wr 


char : BYTE; 


D 
retdesc = ctl$gl_clintown Cdcl_w_deflen] : BBLOCK, ' Default value string descriptor 
size = etl$gl_elintown toet s eurtsn : WORD; ! Default value buffer size : 


: 
: If default buffer cannot fit string, ther increase its size. 


if (.size - -retdesc(dsc$w_length]) LSSU 1 ! If not enough space in the buffer 
THEN allocate _default_buffer (1); ! Then increase its size 


‘ 
: Insert the character. 


CHSWCHAR (.char, .retdesc Céacte_poinger) + ! Insert the character 
-retdesc gscSy_length)); 

retdesc Cdsc$w_length] = .retdesc (Cdsc$w_length] + 1; ! Update the length 

RETURN true; 


= POPIPIPMOPIPIPIPINOPIPIPONIPIPUPIPINIPIPNIND a ad a tt ts 
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. 
eo 
. 
o 
° 
_ 
. 
e 
. 
o 
o 
e 
- 
e 
° 
o 
7 
o 
© 
e 
° 
o 
° 
e 
2 
o 
a 
e 
. 
o 
° 
e 
7 
e 
o 
e 
. 
o 
° 
a 


0004 00000 INSERT_CHAR: 


WORD Save R2 : 3823 
000000006 0 9000 fo $GLCLINTOWN, RO : 3822 
CO 9 MOVAB (ROY, Re ; 
D ¢ ROVZUL 141(RO). R : 3850 
MOVZWL (R2), RI ; 
0 ( SUBL2. R1, RO ; 
9 BNEG \$ : 
1 DD PUSH i > 3851 
00000000v EF 1 a CAL #1, ALLOCATE_DEFAULT_BUFFER : 
5 MOVZWL (RO), R : 3857 
04 A DDL2 (R25, RO : 
é 4 AC v CHAR, (RO) : 


voL=000 heats 93:98:88 Ndi Asti slSecm ae 
el, re r 


; Routine Size: 53 bytes, Routine Base: DCLSZCODE + 0F99 


if sto-t9gs M3; 98:38 — PNScdUnGmaStenscoec sacSepcinr.e32:1°%* cabs 

ROUTINE allocate default_buffer (length) = 
leae 

Expand the default value buffer by at least the specified string length. 
Inputs: 

Length = the size of the most recent string being inserted 
Outputs: 

the default value buffer is modified as described above 


BEGIN 
BIND 

retdees = gt L$gl a ey» Cdel_w pte: BBLOCK, ! Default value string descriptor 

ze = ctl$gl_clintown Cdcl_w_Buflen WORD; ! Default value buffer size 

LITERAL 

slot = 128; ! Increments to increase the buffer size by 
LOCAL 

address, 

old_size, 

status 
old_size = .size ! Get old + 
size = ((. retdess Cdsc$w rtengend + hongrh / slot) + 1) * slot; ! Calculate size of new buffer 

ntown Edel t _getvm)) ! Get new buffer 


IF NOT (status = (. ctl$g° (sis 


e, address) 
THEN on, (. spat us); Signal any error 
CHSMOVE (.retdesc (dsc ‘ Length), -retdesc Cdsc$a_pointer), ! Copy old value 


addre 
(.ctl$gl_ cLintown “tact ot Ltreeval) (old size, 
es C dsc$a_pointer]); 
retdesc _fdecta Lopkater = ,address; 
RETURN true; 


Free old buffer 


Save new buffer 


OOFC 00000 ALLOCATE -PEFAULT BUFFER: 
Save R2,R3.R4 R58 oR? 
CTLSGL_CLINTOWN, R 


#8, 
MOVL iit nas, RO 3880 
1 


a 


a=: 


voL-000 if: sep-1984 99:78:39) STScdUmGmaStenccoce sacSepcuiwr.e32:1°%* (28s 


51 1 é. ASHL. #7, R1, R1 ; 
62 1 0080 8F i ADDW3 #28, Al, , (Re) : 
4004 8F B PUSHR <h? sh> + 3894 
7¢ 80 F A CALLS a, @124(RO) ; 
E BLBS Atus, 1$ : 
DD 0004 PUSHL STATUS + 3895 
000000006 0 F 4 CAL #1, LIBSSIGNA ; 
00 BE 4 : : 2 A 1$ MOV (RO), a(R nA  SADDRESS + 3897 
MOVL TESGL_ CLINTOWN, RO : 38 
88 Ae OOF i ey ee : 389 
00 9 D F CALLS 94° “$155 cro RO) : 3 
A D MOVL ADDRESS, 4(R6) : 
’ be 0008 5 a } 


3; Routine Size: 102 bytes, Routine Base: DCLSZCODE + OFCE 


a A wk at 8 DP 


EAPO OOONAULS WN "OO ONAVL WH O00 


PDD BDA BB MAMA MAPIPIPIPIPIPIPIPINIPINIPIMPIPIPUPIPIPIPIPIPIIIID a ad a tt tt 


OWOONAUF WI QO OWONAULS WIN O 


ibesto-t96s 90:26:36 


ROUTINE Local_qualifier (entity, number) = 


VAX- -11 4. od 
ISKSMSMASTERSCDCL SR 5°" (25) 


Vv 
cei osRe RPCLINT.B832;1 


peeve the last local occurrence of a qualifier on the command 


ne and return the token descriptor. 
Inputs: 


i 

i 

i 

i 

i 

i entity = Address of entity descriptor block 
mmber = eet Ps rnmber to search for 

i 

i 


Outputs: 


routine value = Address of token descriptor if found, else 0 


entity: REF BBOCK; 


BIND 
wrk = ctl$gl d¢ Lorsown : Pr Ss 
pratia = ctl$gl gli ntown Cdcl_t spratia : VECTOR 
ast_param = ctT$gi_clintown Cdcl_b_param) : BYTE; 


LOCAL 
token: REF BBLOCK, 
index, 
match; 


' Address of current token 
! Index of current token 
! Address of last matching token 


a the qualifier has local or positional placement, then search for 
&@ parmqual starting at the last parameter value returned until the 


next parameter value. 


match = fal e; 
IF one tty ke ent_v spared 
ast 


param NEQ 0 
one ise Lm: REF 
he s pralin s{ast_p “paren-1); 
ndex = .pla pla_b “quadesc); 


WHILE .index NEQ 0 
AND .index LEQU .plm Cplm_b_istdesc) 
DO BEGIN 
token = token_desc(.index); 


IF (, roken Corr. a’cpteee. OL pirek Parametr) 


token 

THEN exite OOP; 
IF (.token Cptr_v_type] EQL ptr_k_parmaqual) 
<4 en ate -D _numberJ7EQL naa 


THEN By : ” Sehele n; 


If no match is found, then soeurn false 


! If local or position placement 
! and we have recently requested & parm 


Address Ay paramecer Limit descriptor 
Limits last parameter requested 
Stert following last value returned 


While range not yet exhausted, 


Get token descriptor 


' If a parameter value, 

! then stop the parameter search 
! If aw ky ae 

! Return descriptor rot parmqual 


@ 
RPCLINT tbs -1984 00:26: VAX-11 Bliss-32 V4.0-74 fp 
VOseO00 1ea8Sb- 4882 P3iF8i8s | ek RAAS FER hte SRC Secu wr.032:1°%" «28s 
§ 4 
; 5 index = ,index + 1; } Skip to next descriptor 
oe: 
3 4 RETURN .match; ! Return token address or false 
5 2392 968 1 END; 


003¢ 00000 LOCAL_QUAL IF IER: 


WORD Seve R2,R3, 3 993 
51 000000006 99 0 2 MOVL  CTLSGL_CLINTOWN, R1 : 39 
so 0% At BO move ENTITY, RO t $904 
53 os A 01 3 96 F BBC #1, 5(RO), 4$ : 
oosF C1 : 014 TSTB =: 143R1) + 3942 
40 1 18 BEQL 6 4$ ; 
0 OO8F C1 9A OOOIA MOVZBL 143(R1), RO + 3945 
4 FC A140 bE iF MOVAL =4(R1)CROJ, PLM ; 
0 03 As OA 4 MOVZBL 3(PLM), INDEX ; 946 
D 13 8 1$: ‘.. -- : 394 
50 02 AG 08 0 FD A cMpzV i. #8, 2¢PLM), INDEX : 3949 
1 000000006 00 00 MOVL. WRK, R1 : 3951 
52 30 ( ¢ 0 MULL3 #12. INDEX, R2 ; 
FOAA C241 SE MOVAB -1622(R2)CR1), TOKEN : 
03 63 04 it ‘ ‘3 CMP ZV a2 » #4, (TOKEN), #3 + 3953 
01 04 as i A CMPB ss @( TOKEN), #1 : 3954 
7 «1 4 BEQL = 4$ ; 
01 63 04 1c 28: cAPZV #28, #4, (TOKEN), #1 : 3957 
08 Ac 0S a3 08 fF p CHBZV 40. #8, S(TOKEN), NUMBER : 3958 
55 D 0 MOVL § TOKEN, MATCH : 3959 
fi D6 63 38: INCL NDEX ; 361 
5 4$: MOVL MATCH, RO + 3966 
ss Be $ RET : 3968 


3; Routine Size: 107 bytes, Routine Base: DCLS$ZCODE + 1034 


K 2 
RPCLINT 16-Sep-1984 00:26: VAX-11 Bliss-32 V4.0-74 Pa 3 
vos 12-865-1382 99:48:99 DISKSVMSMASTER: COCL.SRCJRPCLINT.B32;1 9° 353 
ROUTINE global_qualifier (entity, number) 


SSS 


NAME —OO 


: 

; 1 i 

3; 239 7> 1! Locate the Last giobat occurrence of a qualifier on the command 

: f } ; ne and return the token descriptor. 

3 2401 76 1! Inputs: 

 $t08 a 1 i : tity = Add f entity descriptor block 

3 ! en s ress of en escriptor bloc 

; 494 38 : } number = Qualifier nuaber to soareh for 

; 496 2 } Outputs: 

: rte M § : routine value = Address of token descriptor if found, else 0 

: 2410 985 1. 

$ ei} M BEGIN 

: Stig $88 D 

3 2414 989 entity_context = ctl$gl_clintown Cdcl_l_entity] : VECTOR, ! Entity context array 

3: 2415 990 last_qual = ctl$gl_clintown Cdcl_l_qualJ, ! Last qualifier token 

: ol8 red wrk = cti$gl_dclprsown : REF BBLOCR; 

: 2618 398 LOCAL 

3 2619 994 last: REF BBLOCK, ! Address of token for last occurrence 
3; 2420 995 token: REF BBLOCK, ! Address of current token 

: 2421 338 index; ! Index of current token 

s shse 99 

3 24 44 ! 

3 2424 ! If in midst of CLISNEXT_QUAL call, then return the already found global 

3 re 5 é0at H qualifier token. 

3 24 $ 4 § if sce lSal clintown Cdcl_v_nextqual] AND (.entity_context (0) EQL .entity) 

3 2428 £003 THEN RETURN .last_qual; 

3; 2429 4 

3 24 4005 ! 

FH vi 1 Z : Search for the last occurrence as a command qualifier. 

: 26 : 4 iast = 0; ! Indicate no occurrences found 
3 246 4 index = 1; 

3 3 5 rt token = token_desc(1); ! Start at first token descriptor 
: 26 dot WHILE (.token Cptr_v_type] NEQ ptr_k_endline) ! Until end of command Line 

3 "4 ¢ \7 00 BEGIN ! 

3 2640 4015 IF .token Cptr_v type] EQL ptr_k_comdqual ' If token is a qualifier 

3 2441 4 16 AND .token Cotr_b_number]EGL .number ! and its our qualifier 

3 te8 2 , THEN Last = .token; ! Save last occurrence of qualifier 
3 2646 & i$ oken = .token + gtrc_tength; ! Skip to next token 

3 2445 4 ndex = .index + 1; ! and increment token index 

3 rr | rt ND; ! 

: vr 2 § RETURN .last; !' Return address of token descriptor 
: 2450 4025 1 END; 


tnd eae 


voL+000 1S seoct9gs M9: 78:89 — SESdUmGmAtenscbce secSepcuint.e32:4°%* (308 


0004 00000 GLOBAL QUALIFIER: 
WORD 


Save R2 : 3969 
50 000000006 00 00 MOVL CTL ; CLINTOWN, RO : 3989 
0c o08¢ C . 2 BBC #1, 140(RO), 1$ + 4002 
4 AC 40 AQ b F CMPL 4(R0), ENTITY : 
0 4 BNEQ : 
50 78 AO p 16 MOVL 120(R0), RO + 4003 
1 04 00018 1$ CLRL ST + 4008 
: 1 06 1p MOVL #1 JNDEX + 4009 
50 000000006 0000064A 8F C SUBL3 Hig WRK, TOKEN : 401 
04 60 4 1¢ FD 28: cHPZV i , 4, (TOKEN), #4 : 401 
00 60 04 fi FD CMPZV é 8, #4, (TOKEN), #0 + 4015 
08 Ac 05 ad 08 5 E 3 CMPZV 40, #8, S(TOKEN), NUMBER + 4016 
51 D MOVL ‘TOKEN, LAST + 4017 
50 O¢ C 46 3$: ADDL2 #12, TOKEN : 4019 
i) 4 INCL NDEX : 4020 
OF 1 48 BRB : 401 
50 1 Bd 004D 4$: MOVL LAST, RO > 402 
4 00050 RET : 4025 


; Routine Size: 81 bytes, Routine Base: DCLSZCODE + 109F 


m2 
voe=000 1en$3p-198e FBi4Si38 — DISksunga$fenscbeLs skeeecuint.032:4°% (343 


: re g re } ROUTINE token_string (token, retdesc): NOVALUE = 

> 26 4028 1 !-=- 

: 2455 4 1! 

; "i § Z ! : Create a string descriptor of a token string 

LEB RAE] | tute: 

; re 4 1! token = Address of — descriptor 

: "1 ¢ 5 : : retdesc = Address of quadword to receive string descriptor 
3 r 3 4 ; i | Outputs: 

3 2465 4 1 / retdesc = Descriptor of token strin 

: 2466 4 1 ines , ' 

3: 246 4 1 

: 2468 4 tg BEGIN 

3: 2469 4 

: 2470 4044 BIND 

3 2471 thee wrk = ctl$gl_dclprsown : REF BBLOCK; 

3 247 & § 

3 247 404 

> 2474 £nee token: REF BBLOCK, 

: rh rt retdesc: REF VECTOR (2); 

: 2677 4051 retdesc £0} = a ay Cptr_b yalyel: ! Return the token length 
; 278 £036 retdesc C1) = wrk Cwrk_g_Buffer] + .token Cptr_v_offsetd; ! Return the token address 
3; 2480 4054 1 END; 


0000 00000 VOREA_STR INS: 


-WORD Save nothing 3 $06 

50 08 AC po 0 2 MOVL RETDESC, RO + 4051 
0 4 BC 9A MOVZBL @TOKEN, (RO) ; 

51 04 BC C EF OOO0A EXTZ2V. #8, #12, @TOKEN, R1 : 4052 
1 000000096 0 919 ADDL2 WRK 3 
04 AO F4 Ci SE 0001 MOVAB -2926(R1), 4(RO) ; 

04 0001D RET + 4054 


3; Routine Size: 30 bytes, Routine Base: DCLSZCODE + 10F0 


Upcase foreign 
; too. 


VAX=11_BLiss-32 V4.0-74 p 
DISKSVMSMASTERSCDCL. SRCIRPCLINT.B32:1°%" (305 
' 


eeeeeesse 
eeseees MUCO~F OOWNO-r 
OOUND~T DOTA AOCUOWN 


e*eeeeseese es 
eseee 8s OWOvOwsowro 
WDO~TF SONOS TE DOWOtw 
SINT OR OR NC KKK UCC 
_ = 


pa9be te:85:388 


2 
e 
e 


N 
23 
=$ 
g descriptor 


1 
1 
ut string descriptor 


e®ee @eeesse 


utput str 


ees e228 nPOOWUO.T Os 
—a UMA OR. eer Kv wv 
._ eee eeeesn 
Py eee ees PARNER ROP 


— KKRMANWMMTOODO—O— 
DO DINNOOD0D— HR Re 


address of in 
ddress of o 


=<" eee ee e288 
eeeee8 

FE NOUIN ee OS 

ee i@ }757;}§@§@§=—UUh6m@mh6hSehmUhehUh]SU SP SHS 

Zee ee eee KL MAMNEK Ne 

QFAMNEK LM PIM TF OR OOK 

KHINNODOO KKK Kw ww 


~~... ,... eg 8s es Oe 


Upcase a string. 
BYTE; 
i 


output = a 


input = 
tr: REF VECTOR C,BYTEJ, 


input : REF BBLOCK, 
output : REF BBLOCK; 


REGISTER 
19) 


vo RMU news OnNOore 
IK KM TF OVDOD Se Seer KVR Nw 


char: 


I sel see cel cnet “see cecal coe eee cee pe ee el 


the original ptrtng length 


wy ? 
- ! Translate characters 


4: inet Cdsc$a_pointer 


he tengeal 
c$a_pointer 


wn wn 


pu 
- input ta 
output Cd 


th) = .in 
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3 
iecSeor}98s 99:96:3 DiSKSVMSMASTER:CDCL. SRCIRPCLINT.B32;1°9° (385 


ROUTINE convert _keyword_list (desc, array) = 


@ 
vo 
oO 
a 
z 
a 


i 
: Take the user's string apart and fill in the keyword array. 


desc = Address of descriptor of user's input string 
array = Address of the array of descriptors to be filled in 


Outputs: 
The array is se 


t up. 
An error code is returned if there is a syntax error in the input string. 
The error is signalled here. 


1 

1 

\ 

1 

1 

1 

1 

4 

4 

1 

1 

1 

1 

1 

4 

1 

1 

1 
BEGIN 
MAP 

desc : REF BBLOCK 
array : REF VECTOR; 
LOCAL 
t 


II 
Wn—o 


i 
5 
339 
238 
59 
re 
36) old-ptr 
388 index, - 
He} status; 
206 CHSFILL (0, “a te context+1)+1), .array); 
56 ptr = old_ptr = .desc Cdsc$a_pointer); 
568 index = 0; 
369 status = false; 
ant WHILE it per LSSU .desc Cdsc$a_pointer] + .desc Cdsc$w_length]) 
iC; nik onan D (.index LSSU 2*(dcT_c_context+1))) 
rn ptr = CHSFIND_CH C.dese Céscde_gpinter2 + .desc Cdsc$w_length) - .ptr, 
ptr, ae 7 
16 IF sper EQL 0 ‘ 
7 THEN exert P status = true; 
78 array C.index] = ,ptr - .old_ptr; 
array C.index + ij'= -old_ptr; 


ptr = .ptr + 1; 
index = .index + 2; 


FUPVSUSUSUSUSUSISION EBS ES BY BP BEE ENNIO PIPONINIPINUII OO 


PN tt tt MMMM AMAA RMAAARAARARRMRAAAMMMMAMMHHHHH eS 
ce ce ce ce ee ce cee ee ce ce me me ce me em ee ec ee ee ce me ee ee ee ed ed ed od od dD 
FERS OONOA ANEW OO OONOAUN EWN 0 OONAUE WN OC ODNOAU EWN A OODNOUR UN ODO 


Se Se Se Se Ge Se Ge Se Ge Ge Se Ge Ge Se Se Se Se Geo Se Ge Ge FH Ss Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Se Se GOSS S4 SS Se Se OSH Soe SS Ss Se Sees 


PUPP AAPA APPA A ANU 


79 
1 
BS ND; 
5 If NOT .status 
THEN BEGIN 
SIGNAL tnogs nsont ity. 1, .desc, cli$_entnf); 
RETURN msgS_noentity 
END; 
91 array (.index) = desc (dsc$a_pointer] + .desc Cdsc$w_length] - .old_ptr; 
92 array C.index + 1) = .old_ptr: 


3 
vossO00 1B-$e0-1984 93:98 ee Ped GAASTERs chee secSeecuinr.es2:4°%* (38) 


1 ee a tes 


007C 00000 CONVERT_KEYWORD_LIST: 
«WORD 


Save R2,R3,R4,R5,R6 : 41 
56 08 ac 00 MOVL ARRAY, R : 41 
0044 8F 00 6E 06 ee a6 MOVCS #0, (§P), #0, #68, (R6) : 38 
3 04 aC D 8 MOVL Ese : 4139 
4 4 Ad D 1 MOVL 4(R35, OLD_PTR : 
1 4D 1 MOVL  OLD_PfR, PT : 
04 0001 CLRL —sINDEX + 4140 
p4 18 RL STATUS + 4141 
50 6 ¢ 1p 1$ MOVZWL (R3), RO + 4143 
30 06 ad C ADDL2 4(R35, RO : 
1 Di 0024 PL R, RO : 
: 0027 BGEQU ; 
10 p 029 INDEX. #16 + 4144 
5 0 C BGEGY $ ; 
50 1 E SUBL2 PTR, RO + 4146 
61 50 A 00031 LOCC #46, RO, (PTR) : 
; 0 3 BNEQ 2$ ; 
D4 000 CLRL RY : 
1 05 00039 2s TSTL TR + 4148 
05 12 00038 BNEO $ ; 
55 01 p 0 ; MOVL fi. STATUS + 4149 
6642 51 4 C3 43 3$ SUBL3  OLD_PTR, PTR, (R6)CINDEX] > 4150 
04 A642 4 D 4 MOVL  OLD“PTR, 4(R6)CINDEX] + 4151 
1 0 4C INCL ; 436 
54 1D af MOVL. PTR, OLD_PTR : 415 
52 : C 5 ADDL2 #2, INDER : 4154 
11 4 BRB 1 : 4143 
F 5 £8 6 4$ BLBS STATUS, 5$ + 415 
000000006 BF DD PUSHL wcll _ENTNE : 4159 
3 OD F PUSHL R ; 
1 DD 0006 PUSHL #1 : 
000000006 enti f Pe 4 CALLS Poet ISSSIGNAL : 
98 000310FC BF i MOVL #26098" RO + 4160 
é 78 S$ MOVZWL (R3), RO > 4163 
53 04 ty C ; 4(R35, RO, R3 : 
6642 4 ¢ SUBL3 OLD_PfR, R3 (RO) CINDEX] ; 
04 A64 4 D0 V OLD-PIR, 4(R6) CINDEX + 4164 
5 1 p A MOVL #1,7RO > 4165 
4 RET > 4166 


3; Routine Size: 142 bytes, Routine Base: DCLSZCODE + 1225 


a 
vo 
o 
z 
“4 


ROUTINE batch_job = 


t 

i 

} the current process is a batch job or n 
Inputs: 
None 
.] 

' 

] 

1 


SRERoSSSss 


i Outputs: 
Routine value is true if a batch job, else false 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

1 

1 

1 

1 

BEGIN 
LOCAL 

pcb_sts: BBLOCK (4) 
item_list: BBLOCK 194, 
iosb: BB 8], 


status; 


—_ 2 2 2d —) —) —) 9 3 Dd 


MEUIN @OOONOUSWA) "OOOVNOUEWIN OO 


Get job status flags to determine type of job 
ist 9. 16.0 = 4; 

ist £818 eH = = peas pees 

ist 

tise 8055 545705, 


fosb £4:0;38:03 = 0: 


return_if_error (SGETJPIW (ITMLST = item_List, 
N = exe$c sysefn, 
10SB = iosb)); 


IF NOT (status = .iosb [0,0,16,0)) 
THEN RETURN Status; 


RETURN .pcb_sts <SBITPOSITION(pcb$v_batch),1>; 
END; 


te to cabo mths ae o mm 


ed ad ds 4 8 ts 2 ss —) 4 — 2 — 2 bs 9 a a a st 
opt eee 
<—<e 
w 
o 


VIOSHNVE AROS VER LO Oe eR ONO OS NOOONe 


DDD DDD DDI AAPA AAA AAA AAA AAO O 


Se ee Se Ge Ge Fe Se Ge Se FO Se Se FO Se Ge Ge Ge Ge FO Ge Se Ss Se Se Ge Se SE Se Ge Se Ge Ge Ge Ge Se Ge Se Se Ge 46 Ge Se Se Se ee ee 


FI NAMA ARMAARAARAARAARAARRARARARAARARAAARRAARARMRAMMAMMAMeee 


FF 
=o 


-EXTRN 
0000 00000 BATCH_JOB: 


.WOR 
gj Yom ge Be 
MOVAB 


CLRQ 


ifeseo-1964 99:26:36 


VAX=11 Bliss-32_V4.0-7% 
DISKSVMSMASTERSLDCL  SRCSRPCLINT.B32;1° 7" (3c 


This routine returns a boolean value waateat ing whether 


! Buffer Length 

! JPI code 

! Buffer address 

! Address to return item length 
! End of item List 


! Init the 10SB 


! Obtain PCB flags 


' Return errant IOSB status codes 


True if batch job 


SYSSGETUPIW 
re oe : 4167 
4585 preen LIST > 4194 
PCB are {TEM_LTST+4 ; 41 
ITER rely ; 2199 


voL+000 if: sep-198 M9: 978:88 = DTScSumgnaSfenccbce secSepctint.e32:1°%" css) 


* ota nae, 188 
i : fe : 


PUSH ITER, LIST 
snore gp moe fh FE Hs let, 2 
04 ap i SbviwL tOSB- <Status + 4207 
3 i BL8C STATUS, 1 
50 01 AE 6 EF EkTiv Re. wi PCB.STS#1, RO i 4210 
E 1%: RET + 451 


; Routine Size: 63 bytes, Routine Base: DCLSZCODE + 1283 


3 
18-Sep-1944 93:98:38 ecdimGhaStenccoei secSepcuiwt.32:1°%" (ses 


} GLOBAL ROUTINE dcl$dispatch (raqdesc, rqwork, raqbits) = 
1 loco 
1 : 
1 : This routine can be called to dispatch to ony verb processing 
} ; routines if the command has the ROUTINE attribute. 
Inputs: 
i radesc = Address of request descriptor data structure 
} rqword, rqbits = ignored 
Outputs: 


The verb routine is called (if any). 


1 
t 
: The status passed back from the routine is returned in RO. 
: If no routine is specified, success is returned. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 
BEGIN 
MAP 

radesc : REF BBLOCK; 


WMEwnr DOnNOU 


BUILTIN 
PROBER; 


BIND 
wrk = ctl$gl_dclprsown : REF BBLOCK; 


LOCAL 
ptr; 


IF sce lSol clintown EQL 0 
THEN 


True if location can be read 


Address of command work area 


Pointer to offset to user routine 


If not yet initialized, 
then initialize parsing 


nitialize (.rqdesc Cint tval, 
se srqdese cine t’teceved): 


If .werk Cwrk v_userrtn] AND (.wrk Curk_l_image] NEQ 0) 
THEN BEGIR c 


er = .wrk Cwrk_l_ image); 
F PROBER (SREP (63S user), radars NEG-O -ptr) 


EN IF srocess nt_l_entaddr 
THEN RETURN T.ptr)(.rqdesc Cint_l_entaddr)) 


ELSE RETURN (.ptr)(); 


If addr of user routine 

Then call i 

Get pointer to offset longword 

If location can be read, 

If user-supplied argument 

then call user routine with argument 
else call user routine without argument 


OOD NAVNE WY @§O OONOULS WIN OOO 


Signal error 


i$_invrout); 
Return error 


¢ 
Li$_Tnvrout; 


| ae ae Ot Ot Ot Bt OF Be Ie BEBE BETA IE IE VEU MW MWA MMR WMR MMM AMM MMR ee 


ee tees ot tel tay Sl et A 
~ 


mown 
moe 
s 
cos 
aon 


RY BCL Sei searcn Saye R2 3: 4213 
acti ; 


0004 ENT 
$2 000000006 8F 00 ttt MOVL _InvROUf, R 


<z 


voL-000 1Ssen 1944 99:78:39 9 STScblmGmaStenccbec sacSepcuiwr.es2:1°%* (353 


000000006 i f Ist FTLSGL. CLINTOWN 3 4247 
0 MOV RODESC, R ; 
0 % A A BD 13 move igthds RSP) : 1303 48 
ECFD gf F 1 CALLS #2, INITIALIZE ; 
- o 30 000000006 f 1$ ROVL WRK, | R parngest ; 4251 
2 A A ai - 6cRO} : 
1 D BEQL «3 : 
51 e2 A MOVL == 0(R0), PTR + 4253 
61 C : PROBER f » #12, (PTR) + 4254 
50 6 AC D MOVL RODESC, RO + 4255 
a a | 
0c Ad OD 4 PUSH (RO) : 
61 Of FB 4 CALLS #1, OD TR) ; _ 
0 4 RET + 4257 
61 00 FB 49 2$: CALLS #0, (PTR) : 
2 DD 00040 38: PUSHL : 
000000006 99 of FB AF CALLS i. + LIBSSIGNAL : _— 
2 9 5 MOVL + 4261 
4 0005 + 4262 


; Routine Size: 90 bytes, Routine Base: DCLSZCODE + 12F2 


3 
VOseO0 1b-se0-1984 93:98:88 PE cdUWGHASTERc CBee secRPcuINT.032:1°%* (304 


GLOBAL ROUTINE dcl$nextqual (radesc, rqwork, raqbits) = 


oO 


BIEAe 


ALL errors are signalled. 


4 ; ! Point to the next instance of the specified qualifier 
H in the command Line. 
g Inputs 
7 ! rqadesc = Address of request descriptor data structure 
: ie rqword, rqbits = ignored 
75 i Outputs: 
6 ! 
4 . Routine value: 
19 iS i success = cli$_present 
0 ; cli$_locpres 
1 cli$_defaulted 
j : failure = cli$_absent 
: cli$_negated 
5 : cli$_locneg 
{ 
{ 


VECTOR, ! Entity context array 
: VECTOR, ' Token context array 
' Last qualifier token 
! Address of command work area 


CONAVNE WN —OOONAOUL wn 


BISNIS 


IND 

entity.context = ctl$gl_clintown Cdcl_l entity) : 
token_context = ctl$gl_Clintown Cdcl_T_foken 
last_qual = ctl$gl_clintown Cdcl_l qual, 

wrk = ctl$gl_dclprsown : REF BBLOCR; 


GLOBAL REGISTER 
block=9: REF BBLOCK, Address of entity descriptor block 
number=10, ! Parameter/qualifier number 
type=11; Entity type 


MEUM 


NNNNNNNNNNNN NNN NNSA SSSI 
NRMVNMNININNIN 2 3 
Pw tT TT Tt tt TT MARMARA MAMAAAAAAAAAAAMMMMH HHT 


1 
1 
1 
1 
1 
1 
4 
1 
1 
1 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
radesc : REF BBLOCK; 


LOCAL 

token : REF BBLOCK ! Ptr to token descriptor 
8 keyword_array : VECTOR C2*(dcel_c_context+1)+1); ! Keyword array 
741 1 $ 
i : Initialize CLINT if necessary. 
744 1 if .ctl$gl_clintown EQL 0 ' If not yet initialized, 
745 14 ate bed Be (.radesc Cint |_getvel. ! then inttialize parsing 
7%4 15 erqdesc Cint_l_freevm)); 
re 3 $5 
149 18 Verify that valid entities were specified. 


—_— 


PREP EEER EERE EEE PEEP PPE E 


return_if_error (verify. entities (rqdesc Cint_wentlen], 
keyword _array)); 


1 
: If the entity is not a qualifier then return an error. 


ir i NEQ qual_entity) OR 
A Gk ;keyword array [2] NEQ 0) 
THEN B 


ST GNAL et he 
Sag msg$_foentit 


t 
; Do we have a previous context? 


ir eentity_context [0] EQL .block 
THEN token = .last a aual + ptr. ct _length 
ELSE token = token desc(1 

zero_context_arrays (0J; 

last_qual = 0; 


1 
Search for the next occurrence as a command qualifier. 


WHILE (.token Cptr_v_type] NEQ ptr_k_endline) 
DO BEGIN 


IF (. stoken Cp token v ceteee EQL ptr_k_comdqual) 


4 r_b_number] EGL .number) 
THEN BEG! 
aie qual = .token 
ent ty _context C ty = .block; 
gst sh =clintown Cdcl_v _nextqual) = true; 
“cli$_present;~ 
5 
2 token = .token + ptr_c_length; 
5 e@ 


crtsal St igtemn Céel -v_nextqual) = false; 
Nn "cli$_a t3 


o 


MR —OOODNAVULS VO OONOULS WO OO 


y a? 
UU = Or 


OFFC 00000 
MOVAB 


~ENTRY 


on 


A 

A 

A MOVAB 
6 A AB 


aE 


ibeseo-t964 99:26:36 


aes ba okeyword_array (CO],cli$_entnf); 


If so, start search there. 


VAX-11 Bliss-32 V4.0 
DISKSVMSMASTER:CDCL. SRCSRPCLINT. 832;1 


! Verify all specified entities 


95 
429° «383 


! Then signal the error 
! Return the status 


! Until end of command Line 


If token is a qualifier 
and its our qualifier 
Save last occurrence oft qualifier 


Set nextqual qualifier parse 
! Skip to next token 


! Set normal qualifier pars 
! Return address of token Socrteter 


Moat Save R2,R3,R4,R5,R6,R7,RE,RI, os 4263 


: 


T 


i 


a 4p NTOWN, RO 4296 
Hd au 
_— ; 4 3 


_ 


—_— 


Kk 3 
RPCLINT e 4 VAX-11 Bliss-32 V 
yoreoud 12:8 Sep- 1382 99: 48: 8 DI SKSVMEHASTERSEOC CsRCSRPCLINT. B32; fae “ 
0 AC 00 MOV RODESC, RC : 
E A a j move 4 CROs (SP) : $3] 
EC97 CF FB , CALLS H » INETIALIZE sam 
7E 94 AC at ; ’ ADDL #8, RQDESC, -(SP) : 
F29C cr F CALLS #2, VERIFY_ENTITIES : 
1 F BLBS STATUS, 2$ : 
02 38 : A 2s: cn YPE, #2 + 6326 
08 AF p Hi Ist KEYWORD_ARRAY+8 t 4327 
000000006 $F pb 44 3S: PUSHL &#CLI$_ENTNF + 4329 
AE 9F OOO4A PUSHAB YWORD_ARRAY : 
O00310FC BF pp bode PUSHE ; 
eer 8 000310FC t 06 3? hout’ Ot crew ; 4330 
RET : 
59 8 D] 4 4$: cnPL (RB), BLOCK + 4336 
5B 66 ¢ { 9 ADDL #2, (R6), TOKEN $ 4337 
5B 000000006 00 0000064A 8F F 5$: SUBL3 #1610, WRK, TOKEN 3 4 
1C 00 6E Se 09 6s: sete #0, (SP), #0, #28, (RB) : 1339 
1c 00 6E 6 2c 3 1 movcS #0, (SP), #0, #28, (R7) ; 
6 D4 0 CLRL = (R6) + 4 
04 6B 04 if FD 089 7$: CHPZV § ? #4, (TOKEN), #4 : 4 
00 68 04 i FD 0090 CMP ZV #28, #4, (TOKEN), #0 + 4348 
SA 0S AB 08 06 f 97 CMPZV #0, #8, S(TOKEN), NUMBER + 4349 
a acca ee 
$ 000000006 9 B 0 Ag MOVL  CTLSGL_CLINTOWN, RO : 435 
008¢ aC BISB2 #2, ; 
000000006 8F B ROVE #CLIS_PRESENT, RO + 4354 
58 0c £6 89 8$: ADDL2 #12, TOKEN ; ‘ 57 
pmo: p po BF 98: MOVL cILSGL CLINTOWN, RO : 4 
008C A 000C BICB2 0 ; 
betes: F DO OO0CA MOVL  &#CLIS_ABSENT, RO : 436 
4 00001 RET > 4362 


3; Routine Size: 210 bytes, Routine Base: DCLSZCODE + 134C 


—_ 


CANS 


Od ed a ad ad ad ed ed 
WN —OOCONAVUSLWN “OVO OVNOULWN oO 


PP eee coce co coca ce cece See GS Oe oe Oe G8 GeO Ca Ga CeCe CeCeCe 


wm 


MEW 


wm 


-o 


PERE PR EERE E PEEPS 


Po St ot ot ot at at at at at at ot ot ot 


QERRENSLSSSLSALUN LS SSS PUI OGIO PIS OOo 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

MAP 
i 
END; 


iESeon19ne 00:96:86 yaRedt at isecs2 v4 0274 


GLOBAL ROUTINE dclSendparse (raqdesc, rqwork, raqbits) = 


This routine is tet when the user has completed 

all command Line parsing. It checks that all qualifiers 
which appeared on the command Line were processed in one 
way or another by the utility. 


f 
i 
i 
! 
Inputs: 
radesc = tee f > a descriptor data structure 
; rqword, rqbits = ignored 
} Outputs: 
None 
BEGIN 
BUILTIN 
PROBEW; ! True if location writable 


radesc : REF BBLOCK; 

1 

! If clint own storage is allocated, then deallocate it. 
if ra L_clintown NEQ 0 

A ge eo ge Pee 

ctl$gl_ PL ad = Me : ’ 

f 

i If user mode WRK area, then deallocate it. 

! Zero pointer no matter what mode WRK area is. 


if AL l_dclprsown NEQ 0 
THEN IF A ah ner coei te user) , ZREF (-wrk_k Seathcaeiiel. dclprsown) 


a SPieurk.R-Tength). ctl$gt_del ); 
-wr en Cc clprsown 
ctl$gl_ “5 = 0; : . 7 


RETURN true; 


000¢ ENTRY DCL SENDPARSE Save R2,R3 
3 990900006 E MOVAB CTLSGL_CLINTOWN, 
G MOV CTLSGL “DELPRSOWN, R2 
E Cc SUBL2 #4, SP” 
3 0 1 TSTL CTLSGL_CLINTOWN 


SRecLINT.832:1°9° (37) 


m4 33 
RPCLINT ° VAX=11 Bliss-32_V4.0-74 P 8 
WOLe OO 12: i 138 99: 98: 4 DIEKSVMGMASTERSCDCL SRCIRPCLINT.832:1° 7 (395 
2 1 1 BEQL «ss 18 ; 
50 04 Ag 3 3 MOVL  RQDESC, RO : 4394 
3 D 00018 PUSHL R + 4395 
04 AE 90 BF eh MOVZBL #144, 4(SP) : 
oars a: Os eg ee : 
4 be 1$: eAet C ts. CLINT + 439 
50 é 09 B OVE gi GL “SELPRSOUN, RO ; 440 
60 OB7A BF 03 iH PROBEW i.e #2938, (RO) ; 4403 
50 04 Ag D MOVL §RQDESC, RO + 4404 
3 D C PUSHL Rg + 4405 
04 AE OB7A BF 3¢ E MOVZWL #2938, 4(SP) : 
04 AE 9F 0004 PUSHAB 4(SP) : 
16 B0 03 FB 00047 CALLS #2, @20(RO) : 
‘ D4 00048 2: CLAL CTLSGL _DCLPRSOWN + 4406 
50 1 B0 Q 4p MOVL 861, R : 4408 
4 0005 RET : 44 


; Routine Size: 81 bytes, Routine Base: DCLSZCODE + 141€E 


vos-000 batty PO598:38 — DESKSUmsmAStERscOCLs SRCSRPCLINT.832:1°%" (38) 
GLOBAL ROUTINE dcl$getline (raqdesc, rqwork, raqbits) = 


i] er ee Ges 

i 

This routine is called to obtain the complete command Line, 
including the verb. 


a a 8 


=—OOONAULSWR OO ODONAOULS WI O 


radesc = Address of eoageee descriptor data structure 
rqword, rqbits = ignored 


AE RS Sa 


i Outputs: 


(09 C9 C9 C9 C9 CO CD CD CD 
UPTV 


SSE 


NO 


The command Line is returned via the quedverg descriptor 
contained within the request descriptor block 


Routine always returns true status. 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

i 

1 

1 

1 

BEGIN 

44 
44 MAP 
rr radesc : REF BBLOCK; 


PEELE EE LEER PEEP ELE EES 
PRERR REPRE REE EPP EES 


a 


cscs 


4435 LOCAL 
869 44 req. desc : apts et ise _reqdesc) ! Callback request descriptor 
870 44 Lissa “workareaJ, ' Result parse work area 
871 4438 re. flags : BITVECTO ! Callback request flags 
are 4439 REF 
th rere | — : REF BBL ork: 
75 444 noah 5 (O-ctt ef} ise sreadesc c,req $e59 ! Zero roqseet ney block 
87 444 Qadesc cl b Fatypes = clT$k aitors: is Set re ques 
87 4444 sscul Bay Sesc” rpw,req_flags); ! Init meeult parsing s0 tole y 
578 4445 ! to get row Crpw_l_dcl 
444 wrk = .rpw Crpw_l_delwrk); ! Get address of wrk ar —y 
rrr token = wrk Cwrk_§ _resultd; ! Store at first token descriptor 
§ 444 WHILE (.token Cptr_v stypel NEQ ptr. k_endline) ! Until end of command Line 
ret DO token = .token ptr_c_lengt ! then skip to next one 
5 $626 radesc Cint_w_entlen]) = .token Cptr_v vaoffsetd: ! Line length is offset to eol 
re: ? radesc Cint_l-entaddr) = wrk Cwrk_g_buffer ! and set address of input buffer 
4455 F CHSRCHAR (.rqdesc Cint_l_entaddr]) EQL %C'$' ! If line is preceeded with ‘S$’ 
44 445 THEN BEGIN ! then strip it off 
; 445 radese int_w_entlen]_= .rqdesc Cint_w_entlen] - 
91 445 cagesc int_l“entaddr) = .rqdesc Cint_T “entaddr) ; “1: 
9, 445 
9 4460 
94 4461 


Se Se Se Ge Se Se So FO Se Ge SO Se Se SE Se Ge Ge Se Se Ge BF SS Se Ge Ge Ge SO SS Se Ge SF Ss Se Se Se Se Ge Ge SS Ss SF Se Oe SF G4 S5 Ss Se SESS See ee 


RETURN true; 
END 


you-000 ifseo-t9gs M9: 98:88 = DNS cdUmGmASteRscoec sacSepcint.|32:1°%* Aes 


m wes "FE aBNTRY of eer Mee Save R2,R3,R4,R5 ; 4410 
1c 00 be ‘ 65 C t movcS #0, (SP). 30, #28, REQ_DESC + 4442 
4 AD 9% CLRB =—s- REQ_DESC + 4443 
SE 0D PUSHL SP + 446 
op AE OF B00 push Rey ; 
000000006 hy FB CALLS ae Seu : 
robe f BF VAB ROSIOERT DS TOKEN : ren 
04 60 ? ig t 9 1$ cMPIV rt #4, (TOKEN), #4 + 4469 
50 o¢ i ADDL2 #2, TOKEN + 4450 
52 04 AC dO 0 2s: MOV RODESC Re + 4452 
53 01 AO 0c Q EF EXTZV #9. 8 ie (TOKEN), R3 : 
08 Ag 80 f MOVW Re) : 
.> « F492 C1 ‘ 4 MOVAB RO b2RtR 12(R2) : 4453 
24 0c Be 9 49 CMPB gi2cne), 936 + 4435 
if 04D BNEQ $ ; 
08 A2 B 4F DECW ¢R2) + 4457 
oc A D6 5 INCL 2(R2) + 4458 
50 01 p 0055 3$ MOVL #1, RO + 4461 
4 00058 RET + 4462 


3; Routine Size: 89 bytes, Routine Base: DCLSZCODE + 146F 


1Sseoct9ne 99:78:38 SER dUmGmASfeRscbec secSepcuint.o32: 


: 596 tage 0 ElUDOn 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
DCLSZCODE 5320 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(0O) 


Library Statistics 


eccccese Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 24 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:RPCLINT/OBJ=OBJ$:RPCLINT MSRC$:RPCLINT/UPDATE=(ENH$:RPCLINT) 
Size: 5049 code + 271 data bytes 
: Bae . 


Compitati 
Compi ation. Complete 


°° (39) 


RI 
v¢ 


Mme 


-AH-BT13A-SE PS DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


007 


AL EQUIPMENT CORPOR 
DENTIAL AND PROPRIE 


007 AH-BT13A-SE DIGI 
a VAX/VMS V4.0 CONF 


A 
T 


TIO 
ARY 


I 
R 


